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ABSTRACT 


This  report  gives  the  operator  of  the  Hewlett-Packard 
(HP-41)  handheld  calculator  the  ability  to  quickly  and  accu¬ 
rately  determine  the  power  requirements  of  a  helicopter  in 
the  preliminary  design  phase.  These  power  requirements  are 
computed  for  three  landing  gear  configurations:  skid,  fixed 
wheel,  and  retractable  wheel.  By  comparing  the  power  required 
for  each  configuration,  the  user  can  determine  the  optimum 
landing  gear  for  the  design.  _./  > 
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I. 


INTRODUCTION 


A.  BACKGROUND 

The  design  process  for  any  aircraft  is  a  tedious,  often 
repetitive  procedure,  and  for  a  Helicopter,  all  complexities 
are  compounded.  In  order  to  facilitate  the  design  process, 
computer  programs  have  been  derived  that  will  replace  long 
calculations  with  a  speedy  solution  to  many  of  the  problems. 
These  programs,  however,  are  generally  quite  lengthy  and  are 
not  amenable  to  an  educational  conceptual  design  project,  or 
to  'quick  looks'  at  proposed  decisions. 

Two  aids  to  the  determination  of  helicopter  performance 
and/or  helicopter  design  have  been  developed  in  the  Depart¬ 
ment  of  Aeronautics  at  the  Naval  Postgraduate  School.  These 
are  the  series  of  programs  for  the  HP-41  handheld  computer 
[Ref.  1]  and  the  Helicopter  Conceptual  Design  Manual  [Ref.  2] 
which  uses  these  programs. 

None  of  these  programs  relate  to  the  landing  gear  of  the 
helicopter,  even  though  such  programs  are  necessary  in  order 
to  determine  the  most  advantageous  landing  gear  configuration 
for  a  particular  design. 

B .  GOALS 

The  initial  goal  of  this  project  was  to  develop  a  series 
of  programs  for  the  handheld  HP-41  computer  which  would 
enable  the  student  to  determine  which  landing  gear  configura¬ 
tion  best  complements  his  design.  In  the  course  of 
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accomplishing  this  goal,  it  became  apparent  that  numerous 
additional  programs,  written  from  the  Helicopter  Design 
Manual,  would  be  required.  A  second  goal  was  therefore 
established;  to  program  the  design  course  in  such  a  way  that 
the  student  could  accomplish  his  required  tasks  without  the 
mundane  iterative  calculations  required  in  a  design  proce¬ 
dure.  If  hand  calculations  were  required,  instructors 
could  rapidly  check  the  student's  work  with  these  programs. 

Mr.  Ronald  Shinn,  from  the  Advanced  Systems  3ranch,  Army 
Aviation  Research  and  Development  Command,  provided  an  addi¬ 
tional  goal.  Inasmuch  as  a  definite  need  exists  for  the 
design  engineer  to  be  able  to  quickly  and  inexpensively 
derive  a  design  that  is  fairly  accurate  in  the  preliminary 
design  phase,  a  third  goal  was  established;  to  obtain  an 
output  from  the  programs  which  is,  on  average,  within  ten 
percent  of  the  Advanced  Systems  Branch  large  scale  computer 
program  output. 

A  final  goal  was  to  design  the  programs  in  such  a  way  as 
to  eliminate  the  necessity  for  the  student  or  design  engineer 
to  refer  to  charts  and  graphs  for  the  necessary  input  infor¬ 
mation.  Thus,  the  programs  are  designed  to  be  "self-contained." 
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II.  APPROACH  TO  THE  PROBLEM 


A.  BASIC  LINE  OF  APPROACH 

A  series  of  programs  were  written  for  the  HP-41,  which 
would  output  the  horsepower  required  at  various  airspeeds 
and  altitudes  for  a  helicopter  with  skid,  fixed  wheel,  or 
retractable  type  landing  gear.  From  these  power  outputs,  a 
graph  can  be  plotted  which  will  indicate  the  crossover  point, 
i.e.,  where  the  retractable  gear,  with  its  ad.  ._onal  weight 
and  reduced  drag,  will  require  less  power  thai  s  skid  or 
fixed  wheel  configured  aircraft.  Thus,  depen.  ~  on  the 
average  environment  of  the  helicopter  in  quest.^n,  a  deter¬ 
mination  can  be  made  as  to  which  type  of  landing  gear  would 
contribute  the  most  to  the  design. 

B.  DETAILED  LINE  OF  APPROACH 

As  stated  in  section  IB,  one  goal  of  this  project  was  to 
eliminate,  as  much  as  possible,  the  use  of  graphs  and  charts 
to  provide  the  necessary  inputs  when  utilizing  the  programs. 
With  this  objective  in  mind.  Chapters  Two  and  Three  of  the 
Helicopter  Design  Manual  were  programmed.  The  Chapter  Two 
program,  entitled  MR  (Main  Rotor) ,  does  not  deviate  from  the 
design  manual.  By  inputting  the  specification  weight,  rotor 
radius,  critical  Mach  number,  and  maximum  forward  velocity, 
the  program  displays  the  maximum  rotor  tip  velocity,  disk 
loading,  rotational  velocity,  coefficient  of  thrust,  solidity, 
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chord  length,  aspect  ratio,  and  coefficient  of  lift.  The  user 
is  then  prompted  as  to  whether  the  value  inputted  for  Rotor 
Radius,  R,  is  satisfactory  (i.e.,  are  the  displayed  values 
within  prescribed  limits?  A  reduction  in  rotor  radius  will 
increase  disk,  loading,  decrease  aspect  ratio,  and  increase 
rotational  velocity.)  If  a  new  value  for  R  is  not  needed,  the 
Chapter  Three  program,  entitled  PHV,  (Power  to  Hover) ,  is 
executed.  This  program  computes  the  power  to  hover  out  of 
and  in  ground  effect.  The  subroutine  "FM,"  (Figure  of  Merit), 
is  then  executed  from  the  PHV  program.  If  the  Figure  of  Merit 
is  within  limits  (.7  to  .8),  the  subroutine  "WT,"  (Weight),  is 
executed.  If,  however,  "FM"  is  out  of  limits,  the  program 
prompts  the  user  as  to  whether  the  value  is  high,  in  which 
case  the  subroutine  "CHD,”  (Chord),  is  executed,  or  low 
(subroutine  "RV, "  (Rotational  Velocity) ,  is  executed). 

The  "WT"  subroutine  (using  sixtv  percent  of  the  specifi¬ 
cation  gross  weight  as  a  first  approximation  for  empty  weight) 
computes  a  second  approximation  of  the  empty  weight  using  the 
equations  found  in  the  Weight  Estimating  Relationships  [Ref. 
3].  To  this  empty  weight  are  added  fuel,  useful  load,  and 
landing  gear  weight. 

For  the  first  iteration,  a  skid  gear  weight  is  added  and 
is  used  as  a  case  for  future  lauding  gear  computations.  The 
take-off  gross  weight  is  displayed  and  the  user  is  prompted 
as  to  whether  this  weight  is  satisfactory  (i.e.,  if  enough 
allowance  is  made  for  the  additional  weight  of  the  fixed  and 
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retractable  type  landing  gears,  keeping  in  mind  the  maximum 
allowable  gross  weight  specified  for  the  design) .  If  the 
weight  is  not  satisfactory,  the  WT  program  uses  the  second 
approximation  of  empty  weight  as  a  base  and  re-computes  the 
take-off  gross  weight  as  before.  If  this  value  is  satisfac¬ 
tory,  the  MR,  PHV ,  and  associated  subroutines  are  re-executed 
using  this  new  gross  weight  approximation.  If  all  displayed 
values  are  still  within  specifications,  the  program  prompts 
the  user  to  clear  certain  programs  from  computer  memory  and 
to  input  other  programs.  This  must  be  done  due  to  the  limited 
number  of  storage  registers  available  in  the  HP-41.  The 
inputted  programs  are  PTOT,  PCOMP,  and  ESHP;  (Power  Total, 
Compressibility  Power,  and  Equivalent  Shaft  Horsepower, 
respectively) . 

Three  PTOT  programs  have  been  written.  One  is  designed 
specifically  for  use  with  the  HP  82143A  printer.  The  output 
is  automatic  and  consists  of  a  velocity  and  the  equivalent 
shaft  horsepower  required  at  that  speed.  A  second  program 
outputs  only  the  ESHP  required  for  an  inputted  velocity  (no 
printer  required) .  The  third  program  may  be  used  with  or 
without  the  printer  and  displays  all  of  the  individual  powers 
that  comprise  the  ESHP  for  a  specified  velocity. 

The  subroutines  EFPA,  PCOMP,  and  ESHP  are  used  in  the 
main  program  PTOT.  EFPA  computes  the  effective  flat  plate 
area  of  the  design  helicopter.  This  value  is  determined  from 
the  aircraft  gross  weight,  its  landing  gear  configuration  and 
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whether  the  aircraft,  in  the  opinion  of  the  user,  has  clean 
or  dirty  lines.  PCOMP  computes  the  additional  horsepower 
required  due  to  compressibility  effects  while  ESHP  computes 
the  extra  power  needea  due  to  accessories,  transmission 
losses,  and  losses  due  to  multiple  engine  installation. 

Once  PTOT  has  been  execu _ed  and  the  data  recorded,  the 
user  re-executes  the  WT  program.  Since  the  skid  landing  gear 
is  to  be  used  as  a  base  for  determining  the  weight  of  the 
fixed  and  retractable  gear,  the  program  automatically  bypasses 
the  component  weight  calculations,  thereby  allowing  the 
identical  empty  weight  to  be  used.  The  user  inputs  the  same 
values  for  fuel  and  useful  load  weight.  Following  the 
calculator  prompts,  the  user  inputs  fixed  gear  information. 

The  new  take-off  gross  weight  is  computed  and  the  program 
transfers  to  PTOT.  The  reader  will  recall  that  during  the 
first  iteration  of  the  WT  program  (using  skid  gear  informa¬ 
tion)  ,  the  MR  program  was  re-executed  to  insure  that  the  newly 
computed  value  of  gross  weight  did  not  result  in  specification 
violations.  The  additional  weight  of  the  fixed  and  retract¬ 
able  landing  gear  results  in  less  than  a  four  percent 
increase  in  the  total  gross  weight  of  the  aircraft.  It  is 
therefore  not  necessary  to  again  check  the  MR  values,  for 
this  small  increase  in  gross  weight  will  not  result  in  speci¬ 
fication  violations.  After  obtaining  the  power  outputs  with 
the  fixed  landing  gear,  re-execute  the  WT  program,  inputting 
retractable  landing  gear  data.  Once  the  three  data  sets  have 


been  computed,  it  is  a  simple  matter  to  compare  these  lists 
to  determine  the  crossover  points. 

For  a  graphical  display  of  the  crossover  points,  two 
programs  have  been  developed:  MY PLOT  and  POWERPLO  [Ref.  4], 
These  programs  are  compatible  with  the  TEXTRONICS/DISSPLA 
package . 
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Ill . 


RESULTS  AND  CONCLUSIONS 


This  series  of  programs  allows  the  user  to  quickly  and 
accurately  determine  the  power  required  of  a  helicopter  at 
any  speed,  and  at  any  altitude.  The  user  is  able  to  deter¬ 
mine  the  most  advantageous  landing  gear  configuration  for 
his  design  depending  on  the  projected  mission  environment 
of  the  aircraft. 

In  an  attempt  to  display  the  accuracy  of  these  programs, 
three  sample  problems  are  solved  in  Appendix  B.  The  first 
is  a  step-by-step  cargo  helicopter  design  problem.  The 
second  is  an  attempt  to  design  a  current  production  heli¬ 
copter,  the  Hughes  AAH-64 ,  and  compare  the  actual  power 
outputs  with  the  HP-41  program  outputs.  The  third  problem 
compares  the  Army  Aviation  Research  and  Development  Command's 
Advanced  System's  computer  power  outputs  with  that  of  the 
HP-41  program  outputs  given  the  identical  input  data. 

Though  accurate,  inexpensive,  and  rapidly  executed,  it 
must  be  emphasized  that  these  programs  represent  only  the 
"back  of  the  envelope"  phase  of  preliminary  design.  Further 
detailed  analysis  currently  requires  the  use  of  expensive 
main  frame  computers. 
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APPENDIX  A 


HP-41  COMPUTER  PROGRAM 


MAIN  ROTOR  (MR) 

1 .  PURPOSE 

This  program  represents  the  Second  Chapter  in  the  Heli¬ 
copter  Design  Manual.  It  computes  the  disk  loading  (DL) , 
rotational  velocity  (PV) ,  coefficient  of  thrust  (CT) , 
solidity  (SD) ,  chord  length  (c) ,  aspect  ratio  (AR) ,  coeffici¬ 
ent  of  lift  (CL) ,  and  the  maximum  rotor  blade  tip  velocity 
V(TIP)  given  the  following  inputs: 

A)  Specification  Weight  (Spec  Wt) :  the  absolute  maximum 
gross  weight  allowable. 

3)  Main  Rotor  Radius  (R) :  this  is  an  educated  guess. 
Start  by  using  the  design  maximum  radius  allowed. 

C)  Critical  Mach  Number  (Mch  Crit) :  to  prevent  the  rotor 
blade  from  encountering  undesirable  compressibility  effects, 
use  the  historically  acceptable  value  of  .65. 

D)  Maximum  Forward  Velocity  (VF  Max):  input  the  design's 
maximum  forward  velocity. 

Throughout  all  of  these  programs,  when  prompted  for  a  Yes 
or  No  answer,  the  user  should  input  a  1  for  Yes,  and  a  0  for 
No. 

2 .  EQUATIONS 

DL= (GW) / ( (PI) *R**2)  where  the  first  approximation 

of  GW  =  (Spec  Wt)  *  .8 


VT  (max)  ss  1 


=  (Mch  Crit)  *  (a)  where  a  = 

Sqrt (Gamma  *  g  *  R  *  T) 


RV=  VT  (Max )  /  ( R) 

CT=  ( GW )  /  ( A  *  RHO  *  VT  (Max)  **2) 

SD=(CT/(BL) 

where  BL= ((-. 16667) * (VF  Max/.59248)/VT  Max)  +  .15515 

Note:  The  blade  loading  calculation  is  derived  from  a  chart 
of  blade  loading  vs.  advanced  ratio.  The  chart  is  linear 
for  an  advanced  ratio  (VF  Max)/(VT  Max)  of  >  .35.  The 
equation  for  a  straight  line  (y*mx+b)  was  therefore  used 
for  this  approximation. 

c=  (SD  *  PI  *  R)/b 

AR= (R)/c 

CL=  (6  *  CT) /SD 

where : 


DL  *  disk  loading 
R  =  radius  of  the  main  rotor 

RV  =  rotational  velocity 
RHO  =  density  altitude 
BL  =  blade  loading 
c  =  chord  (main  rotor) 

CL  =  coefficient  of  lift 


GW  =  gross  weight 

VT(Max)  =  blade  maximum 
tip  velocity 

CT  =  coefficient  of  thrust 
SD  =  solidity 

b  =  no.  of  main  rotor  blades 
AR  =  aspect  ratio 
A  =  Area  of  main  rotor 


FLOWCHART  (MR)  (CONT) 


4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 


A  helicopter  is  to  be  designed  with  the  following 
specifications : 

VF(Max)  =  160  kts 

(Spec  Wt)  =  18000  lbs 

Maximum  Rotor  Diameter  =  58  ft 

AR  must  be  between  15  and  25  and  DL  must  be  less  than  7.5. 
Compute  DL,  RV,  CT,  SD,  c,  AR,  and  CL. 

Input  the  MR  (Main  Rotor)  program  and  clear  all  flags. 


KEYSTROKES 

DISPLAY 

XEQ  (alpha)  SIZE  (alpha) 

SIZE.  .  . 

068  XEQ 

(alpha)  MR  (alpha) 

Spec  Wt=? 

18000 

(r/s) 

R=? 

29 

(r/s) 

Mch  Crit=? 

0.65 

(r/s) 

VT  MX=  725.63 

(r/s) 

VF  MX=? 

160 

(r/s) 

DL=5 . 4  5 

(r/s) 

RV=25 .02 

(r/s) 

CT= .004 

(r/s) 

SD=. 047 

(r/s) 

C-1.065 

(r/s) 

AR=27 .23 

( r/s ) 

CL= .559 

(r/s) 

R  ok? 

0 

(r/s) 
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If  these  values  are  not  within  specifications ,  push  (r/s) 


i 

and  input  a  new  value  of  R.  Since  flag  00  is  now  set,  the 

i 

program  automatically  goes  to  R=?  Because  AR  is  rather  high,  , 

input  a  new  value  of  27  feet  for  R.  Proceeding  as  before,  the 
following  data  is  displayed. 


KEYSTROKES 

DISPLAY 

(r/s) 

DL=6 .28 

(r/s) 

RV=26 . 37 

(r/s) 

CT=. 005 

(r/s) 

SD= .  054 

(r/s) 

C=1 . 14  4 

(r/s) 

AR=  23.6 

(r/s) 

CL= .559 

(r/s) 

R  Ok? 

1  (r/s) 

By  decreasing  the  rotor  radius,  the  aspect  ratio  was 
decreased  while  disk  loading  was  increased.  Both  values  are 
now  within  the  specifications.  Because  1  was  inputted  for 
the  prompt  (R  ok?) ,  the  program  automatically  advances  to  the 
PHV  program. 
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5.  PROGRAM  LISTINGS 


91*LBL  *W 

92  F$s  55 

93  CP  21 

94  CJX  3 

95  PS”  99 

96  GTO  *BB* 

9?  -SPEC  UTrS* 
98  PPCMFT 

89  STrt  39 
19  .8 

1!  * 

12  STO  36 
13*LBl  *88* 

14  .90237696 

15  EHTERt 

16  STO  11 
1?  -Rs> 

18  prompt 

19  STO  95 
28 

2!  BI 
22  * 

27  ST0  12 

24  ?CL  36 

25  V ' v 

26 

27  STO  71 
23  *HCH  CR!T»* 
29  PROMPT 
39  STO  93 
*1  238.15 

72  ENTER* 

73  491,3 

74  * 

75  SOFT 

76  * 

77  ,304ft 
73 

39  STO  13 

40  -VT  MX=- 

*1  ORCL  '< 

42  avIEU 
47  STOP 

44  9CL  13 

45  »CL  95 


46  ■' 

47  STO  88 

48  SF  90 

49  RCL  12 
59  RCL  11 

51  * 

52  RCL  13 
IS  XT  2 

54  * 

55  RCL  36 

56  XOV 

«?7  / 

53  STft  14 

SQ  -VF  MK='>‘ 
69  PROMPT 

61  .59248 

62  t 

63  STO  23 

64  RCL  13 

65  t 

66  . 16666* 

6?  CHS 

63  * 

69  ,15515 
79  + 

7;  ?CL  14 
7? 

-***  ; 

74  STO  19 

7C  ST 

76  * 

RCL  05 

75  * 

-4  4 
89 

31  STQ  94 
82  RCL  95 
?7  •  v 

?4  / 

35  STO  32 

36  RCL  14 
97  6 

33  * 

39  RCL  -- 


91  STO  37 
92*LBL  *OP* 

93  RCL  31 
'44  *3L=* 
ftS  ORCL  ■' 

96  oyiEU 
■47  STOP 

98  RCL  93 

99  -RVr- 

199  ORCL  “ 

19!  uV!EW 
;92  STOP 

197  RCL  I* 

*04  •Cr-‘ 

195  ORCL  v 

196  0V!E«‘ 

*07  STOP 

198  RCL  19 
*J<4  -811=' 

119  ORCL  5 

111  aV!E« 

112  STOP 

113  RCL  04 

M4  •cs- 

115  QRCL 

116  QV1EN 
i;7  STOp 
113  RCL  32 

119  -QP=* 

120  ORCL  X 

121  0R1EN 

122  STOP 
127  RCL  37 

124  -CL1* 

125  ORCL  '< 

126  0V1EU 

127  STOP 

128  *R  OF”" 

129  PROMPT 
139  V10S 

131  FEO  *phv 

132  GTO  ’SB* 

133  ENP 
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POWER  TO  HOVER  (PHV) 


1.  PURPOSE 

This  program  computes  the  power  required  to  hover  in  and 
out  of  ground  effect  at  SSL.  This  program  is  to  be  run 
following  satisfactory  completion  of  the  MR  program.  A  sub¬ 
routine  entitled  "FM"  is  .’.sed  to  calculate  the  Figure  of 
Merit  for  the  aircraft.  If  the  Figure  of  Merit  does  not 
fall  within  prescribed  limits,  the  subroutine  chord  (CHD) ,  or 
rotational  velocity  (RV) ,  will  automatically  be  executed. 

The  following  are  required  inputs  for  PHV. 

A)  Number  of  main  rotor  blades. 

B)  Coefficient  of  drag  of  the  main  rotor,  (Cdo) . 

C)  Height  of  the  main  rotor  above  the  ground,  (H) . 

2 .  EQUATIONS 

B (MR) =1-  [  ( 2  *  CT  (MR) )  ** . 5/b (MR) ] 

Pi  (MR)  =  (1/3)  *  [(GW)  **1.5./(2  *  RHO  *  A)**. 5] 

Po (MR)  = ( (SD) * (Cdo) * (RHO)  * ( A ) * ( VT ) *  *  3 ) /4  40  0 
Pt= (OGE) =Pi +  Po 

P/P (OGE) =-Q.1276*(H/(2  *R)  ** 4 )  +  .  70 80* (H/ ( 2 *R)  **3 ) 

-1.4569*(H/ (2*R) **2) +1 . 3432* (H/2*R) )+.5147 
Pt ( IGE) =Po ( MR)  +  P/P (OGE)  +  Pi (MR) 
where : 

B  is  the  tip  loss  factor. 

A  is  the  area  of  the  main  rotor  disk. 

Pi  is  the  induced  power  'with  tip  loss) . 


Po  is  the  profile  power. 

Pt(OGE)  is  the  total  power  to  hover  out  of  ground  effect. 
Pt(IGE)  is  the  total  power  to  hover  in  ground  effect. 
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4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 


Following  a  satisfactory  run  of  "MR,"  determine  the 
power  to  hover  out  of  and  in  ground  effect  and  the  Figure  of 
Merit  for  the  helicopter. 

Specifications : 

Number  of  main  rotor  blades  =  4 

Coefficient  of  Drag  (Cdo)  of  the  main  rotor  =  .01 


Height 

of  the  main 

rotor  above  the  ground 

=  14.4  ft 

KEYSTROKES 

DISPLAY 

(XEQ) 

(alpha)  PHV 

(alpha) 

NO.  MR  BLDS= 

4 

(r/s) 

Cdo  MR=? 

0.01 

(r/s) 

Pth  OGE=1232 

(r/s) 

H=? 

14.  4 

(r/s) 

Pth  IGE-1019 

(r/s) 

FIG  MER=  0.74 

(r/s) 

FM  ok? 

1 

(r/s) 

WE=10  80 
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5  PROGRAM  LISTINGS 


*1  *L8L  ‘pHV 

16  1 

’!  ,  1 7T6 

«2  r!>'  0 

17  y+y 

-?  X 

93>L8L  *TL* 

13  PCL  12 

7  j  7UC; 

04  PCI  l* 

70  * 

'4  pcl  r 

05  2 

40  ?C_  il 

T  7 

‘^h  < 

4!  * 

'6  v*y 

07  SORT 

42  -CdO  HP='” 

”7  ,'080 

08  -NO. HP  8i.I!S=7" 

4;  PPt7HPT 

'8  * 

09  PPQHPT 

44  sin  97 

79  ♦ 

10  STO  86 

45  * 

89  ?c:  r 

11  , 

46  ?CL  !? 

9;  7 

12  CHS 

47  x 

?2  v+y 

*7  1 

40  4490 

31  1,456'? 

14  » 

40 

34  * 

,e,  STO  ,c 

50  110  21 

07  - 

!6«'.BL  'p!“ 

51 ♦LBL  -0T’ 

36  pcl  1' 

17  PCL  11 

77  oi 

87  1.1412 

18  PCL  12 

51  PCI  16 

3.9  X 

*0  < 

54  * 

2?  * 

29  2 

55  STO  39 

90  ,7147 

2!  * 

56  "°TH  OGE=- 

01  ♦ 

22  S9PT 

57  0PCL  1 

?2  PCL  16 

21  ?CL  16 

58  3VIFH 

97  * 

74  rHT[P* 

50  stop 

54  OT[i  7;0 

25  i,5 

60»LBL  ”PT  I, IE" 

05  2: 

76  y+v 

61  *Hs?* 

96  * 

■:,? 

47  ?POHPT 

97  STO  14 

28  \/‘i 

61  STO  9-5 

98  -PTH  J5I 

20  PCI  15 

64  7 

oq  aPCL  v 

19 

07 

190  9yIE« 

11  559 

66  ?ci  05 

191  STOP 

■JO 

h?  / 

192  vep  -pm' 

11  STO  16 

9TH  t? 

101  EWIi 

74*L8L  'PO” 

K?  * 

15  PCI  11 

v*v 

/ 


WEIGHT  (WT) 


1.  PURPOSE 

This  program  uses  an  iterative  procedure  to  compute  a 
more  accurate  estimate  of  the  empty  weight  and  total  gross 
weight  of  the  helicopter. 

The  program  makes  a  "1st  cut"  estimate  of  the  empty 
weight  (WE)  by  multiplying  the  specif ication  weight  by  .6. 

This  WE  is  then  used  to  compute  the  weight  of  the  blades,  hub, 
fuselage,  controls,  electrical  and  fixed  equipment.  The 
weight  of  the  propulsion  system  is  estimated  by  recalling  R30 
(Pth(OGE))  and  multiplying  by  1.2.  These  values  are  then 
added  together  and  represent  the  second  empty  weight  estimate 
(WE2) .  To  estimate  the  total  gross  weight,  fuel,  useful  load, 
and  landing  gear  weight  are  added  to  the  empty  weight  figure. 
Three  types  of  landing  gear  are  considered;  skid,  fixed 
wheel,  and  retractable  wheel.  A  common  practice  among  air¬ 
craft  designers  is  to  add  two  pounds  to  the  gross  weight  of 
the  aircraft  for  every  additional  pound  added  as  a  result  of 
heavier  equipment  being  installed.  This  is  due  to  the  fact 
that  one  additional  pound  requires  more  power  which  results 
in  more  fuel  usage.  In  this  case,  the  skid  is  lighter  than 
the  fixed  wheel  gear  which,  in  turn,  is  lighter  than  the 
retractable  gear. 

This  gross  weight  estimate  is  calculated  as  follows: 
the  skid  gear  weight  is  calculated  and  is  used  as  a  reference 
point.  This  weight  is  subtracted  from  the  fixed  wheel  gear 
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weight.  An  identical  procedure  occurs  for  the  retractable 


gear.  In  this  manner,  every  extra  pound  due  to  the  addition 
of  a  heavier  landing  gear  results  in  two  extra  pounds  being 
added  to  the  gross  weight  of  the  aircraft. 

The  formulas  for  computing  the  landing  gear  weight  use 
the  specification  weight  (absolute  maximum  weight  allowed) . 
If  the  user  desires  to  incorporate  a  "buffer"  to  insure  a 
satisfactory  performance  of  the  landing  gear  during  a  hard 
landing,  this  weight  should  be  increased  by  a  suitable 
percentage . 

2 .  EQUATIONS 

Wb=  ( .  06)  *  (WE)  *(R**.4)*(SD)**.33 
Wh= (.0135) * (WE) * (R** . 42 ) 

Wp= (0.21) *Pth (OGE) 

Wf=  (0.21)  *  (WE) 

Wc= (0.06) * (WE) 

We= (0 . 06)  *  (WE) 

Wq= (0.28) * (WE) 

Weight  of  the  skid  gear= ( . 02 45 * (Spec  Wt)**.8606) 

*(FL) **.8046 

Weight  of  fixed  and  retractable  landing  gear=40.0* 

(WMTO) **.6662  *  (NW)**.536 
* ( IRLG) **.1198 

where : 

Wb  is  the  total  weight  of  the  blades, 
wh  is  the  weight  of  the  hub. 

Wp  is  the  weight  of  the  propulsion  system. 
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Wf  is  the  weight  of  the  fuselage. 

Wc  is  the  weight  of  the  flight  controls. 

We  is  the  weight  of  the  aircraft's  electrical  equipment. 

Wq  is  the  weight  of  the  installed  fixed  equipment. 

WE2  is  the  empty  weight  (the  sum  of  the  above) . 

R  is  the  main  rotor  radius. 

SD  is  the  main  rotor  solidity. 

Pth(OGE)  is  the  power  to  hover  out  of  ground  effect 
(recalled  from  R30) . 

FL  is  a  coefficient.  If  the  main  rotor  has  two  blades, 
the  program  uses  a  value  of  2.  If  more  than 
2,  FL=4 . 

WMTO  is  the  specification  weight  divided  by  one  thousand. 
NW  is  the  number  of  landing  gears. 

IRLG  is  the  retractable  gear  flag  (l=fixed , 2=retractable) 

Mr.  Ronald  Shinn  developed  the  equation  for  skid  gear 
weight.  Most  designers  use  2%  of  GW  to  determine  skid 
weight.  In  an  effort  to  achieve  a  more  accurate  equation 
he  used  a  multiple  regression  routine  to  arrive  at  his 
equation.  This  formula  has  an  11%  error  when  compared 
against  the  skid  weight  of  eight  operational  helicopters. 
The  equation  used  to  determine  the  fixed  and  retractable 
landing  gear  weights  had  an  8.5%  error  when  compared  with 
29  operational  aircraft. 


FLOWCHART  (CONT) 


FLOWCHART  (CONT) 


FLOWCHART  (CCNT) 
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4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 


The  user  will  note  that  at  the  conclusion  of  the  PHV 
example  problem,  the  program  transferred  automatically  to 
the  WT  program  (WE=10800.00  was  displayed).  If  this  value  is 
in  the  calculator  display  window,  disregard  the  initial  key 
stroke  instruction. 


KEYSTROKES  DISPLAY 


XEQ 

(alpha)  WT  (alpha) 

WE=10 ,800 

(r/s) 

Wb=9  2  4.0 

(r/s) 

Wh=582 . 01 

(r/s) 

Wp=1477 . 99 

(r/s) 

Wf=226  8 . 00 

(r/s) 

Wc=648 . 00 

(r/s) 

We=64  8 . 00 

(r/s) 

Wq=302  4 . 00 

(r/s) 

WE  2  =9572.01 

(r/s) 

W  FL? 

4000 

(r/s) 

USE  LD? 

3750 

(r/s) 

SKID? 

1 

(r/s) 

MR >2  BLDS? 

1 

(r/s) 

T  GW=17665 . 30 

At  this  point,  push  the  (r/s)  button.  The  computer  will 
prompt,  "WT  OK?"  If  the  weight  is  far  enough  below  the 
specification  weight  to  allow  room  for  the  added  weight  of 
the  fixed  and  retractable  landing  gear,  input  1  (Yes) .  Input 
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0  (No) ,  otherwise.  If  this  second  option  is  taken,  the 
computer  displays  the  most  recently  computed  value  of  empcy 
weight  and  uses  this  as  a  base  for  iteration.  For  this 
example  problem,  perform  an  additional  iteration. 


KEYSTROKES 

DISPLAY 

(r/s) 

WT  OK? 

0 

(r/s) 

WE=  95  72 . 01 

(r/s) 

Wb=  818. 94 

(r/s) 

Wh=515 . 83 

(r/s) 

Wp=14  77 . 99 

(r/s) 

Wf=2010.12 

(r/s) 

Wc=  574.32 

(r/s) 

VJe=5  74 . 32 

(r/s) 

Wq=2680 . 16 

(r/s) 

WE  2  =8651.69 

(r/s) 

W  FL? 

4000 

(r/s) 

USE  LD=? 

3750 

(r/s) 

SKID? 

1 

(r/s) 

MB> 2  BLDS? 

1 

(r/s) 

T  GW=16744 . 99 

(r/s) 

WT  OK? 

1 

(r/s) 

The  program  transfers  back  to  the  MR  program.  This  newly 
computed  value  of  gross  weight  is  now  used  to  obtain  the  MR 
output.  The  user  must  again  check  to  insure  all  values  are 
within  prescribed  specifications. 
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PROGRAM  LISTING 


D  . 


0! 

•L3L  -yf- 

-yp=- 

a? 

CP  95 

e  i 

sea  - 

97 

PTV  2 

c\ 

aviE- 

lU 

rg?  55 

C7 

'77  pP 

95 

CP  2! 

54 

jri  tc 

99 

5CL  29 

cc 

7  4 

97 

.6 

5b 

X 

9'? 

* 

c? 

2T+  26 

9«*LBL  9! 

CA 

■yF-* 

!9 

eg?  97 

CQ 

Q»CL 

70  uyTPg 


* 2 

-  2  *•  9 1 

n  1  cy  f; 

17 

25 

6?  PCL  25 

«  ,4 

°UE=* 

62  ,06 

4  C 

3PCL  v 

7“  * 

lb 

Ljyrry 

r, w.  .  r  ■  ►. 

1  7 

oTCP 

66  "«C=“ 

tg 

QTfl  7*- 

67  QRCL  * 

19 

?CL  0C 

6o  uVIEti 

29 

.4 

69  7 TfiP 

71 

V4V 

79  ?CL  25 

A  A 

* 

71  ,06 

77 

,06 

"2  * 

7  j 

* 

-  7  +■  ~ 

oc 

nri  *  $ 

■  •-•  w 

’■*  •!*?=* 

26 

,77 

"5  OPCL 

77 

v*y 

'6  aviE" 

70 

* 

”  7700 

29 

770  79 

-g  pp  75 

29 

■«b=" 

-•3  _;fi 

71 

flRCL  '■! 

99  * 

70 

auiEy 

7*  7T-  79 

77 

:TOP 

72  -«<?=■ 

24 

PCI  75 

77  jf'CL 

7C 

.9!75 

U  u'.’3E* 

2^ 

X 

25  prop 

77 

?r|_  pc 

79  PCI  79 

?3 

.42 

37  -me  2=" 

7P 

:/*y 

33  JPCL  * 

a  p 

X 

37  QVTEH 

41 

3T+  26 

30  37 fip 

4? 

’UH=" 

°!  7 TO  '7 

42 

OPCL  v 

33«i_gL  92 

44 

qvt[» 

37  pee  35 

ic 

oyqp 

3d  EC?  93 

4b 

?CL  T0 

QC  370  39 

47 

1 , 

30  -y  C!  ?« 

42 

« 

37  ot>n*1PT 

4* 

:T* 

3?  37*  39 

39 


r 


■5Q  -l|C£  i  jo- 

MS  GTS  0Q 

100  PPljHPT 

1 4'Hi.PL  05 

!»!  ST*  "0 

150  4 

'.92  ■Sif!!!'> 

15!  E»TEP* 

103  PP0HPT 

152  .3040 

104  XW 

157  v*y 

105  GTO  04 

154  PCI  79 

199  PCI  79 

155  .3000 

10?  1000 

150  v*y 

10?  -■" 

lc7  * 

199  . 00t  ? 

153  ,0245 

110  v*v 

15Q  « 

’ll  STC  09 

108  STO  05 

Hi  "MO.  LG''" 

101  GTO  09 

117  ppq*pt 

102*151  07 

"4 

10?  PlL  0b 

t!5  Y*.X 

104  PCL  05 

1 19  ST*  00 

105  - 

1 17  40 

10b  ; 

110  ST*  00 

107  * 

119  PCI  00 

'.03  PCL  00 

129  STQ  99 

109  * 

121  *FV  QP-i" 

F0  GTO  fi9 

122  PROMPT 

F1*LBL  83 

i  oo  y 

F2  PCL  08 

124  GTO  02 

‘7?  PCL  05 

<  op  0 

-  -  - 

1.4  - 

120  ENTER* 

.  7c  o 

127  ,1193 

170  * 

'23  vtx 

177  PCL  88 

129  0T*  00 

1'3  * 

*78  PCI  98 

1?9*|.SL  09 

171  GTO  98 

180  st*  7,0 

172*181  04 

13!  PCL  70 

177  •*<?'■  2  3L3S’* 

tOO  »T  oy«. 

174  prompt 

187  3PCL  X 

175  V'>0? 

[54  oviEH 

179  GTO  95 

135  STOP 

t  "7  ■' 

138  pcp  07 

178  SHTEP* 

137  XEO  -PT0T 

179  .3040 

138  SP  81 

140  YtX 

189  ”UT  np- 

Ml  PCL  79 

1.90  PROMPT 

142  .3600 

191  y=0b 

143  ytx 

192  GTO  8! 

'.44  * 

197  SP  04 

'45  ,0245 

194  XEO  ‘MR’ 

148  * 

147  STO  05 

1°5  END 
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TOTAL  POWER  (PTOT) 


1.  PURPOSE 

Three  PTOT  programs  were  written.  The  first  program  was 
designed  specifically  for  use  with  the  HP82143A  printer. 

The  printer  outputs  the  velocity  and  corresponding  engine 
shaft  horsepower  required.  The  second  PTOT  program  was 
designed  for  the  user  who  does  not  have  access  to  the  HP 
printer.  This  program  displays  the  engine  shaft  horsepower 
required  at  an  inputted  velocity.  The  third  program  displays, 
for  an  inputted  velocity,  all  of  the  individual  powers 
required,  for  both  main  and  tail  rotors,  the  total  power 
required  and  the  engine  shaft  horsepower  required.  This  pro¬ 
gram  can  be  used  with  or  without  the  printer.  Because  of  the 
detail  involved  with  this  program,  execution  is  much  slower 
than  with  the  other  two  programs. 

2.  EQUATIONS 

Pp (mr  fwd) =(0.5) *rho*V ( fwd) **3*EFPA ( f f ) 

Vi  (mr  hover)  =  (GW/'(2*rho*A)  )  **  .  5 

Pi (mr  fwd) =GW (- (V( fwd) **2/Vi (hover) **2) /2 
( (V (fwd) **2/ (2*Vi (hover) **2) +1 
**.5)) **.5  *  Vi (hover) 

Po(mr  hover) = (SIGMA (mr)  *  Cdo (mr)  *  rho  *  A(mr) 

*  V (mr  tip) **3) /4400 

MU (mr ) =V ( fwd)  /  V(mr  tip) 

Po(mr  fwd)  =  ( l-*-4 . 3*MU**2 )  *  Po(mr  hover) 

Pt(mr  fwd)=Po(mr  fwd)  +  Pp (mr  fwd)  +  Pi (mr  fwd) 

Mach  Tip(mr)=  (V(fwd)  -  V (mr  tip))  / 

(gamma  *  g  *  R  *  T^**.5 
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R(tr) = (GW  /  1000) **.5  *  1.3 
L ( tail) =R( tr)  +  R(mr)  +  .5 
Chord ( tr) =R( tr)  /  AR(tr) 

T(tr)=Pt(mr  hover  oge)  /  (RV(mr)  *  L(tr) 

A(tr) =R(tr) **2  *  PI 

V ( tr  tip) =RV (mr )  *  4.5  *  R(tr) 

CT  (tr)  =T  (tr)  /(A(tr)  *  rho  *  V(tr  tip)**2) 

B(tr) =1- ( (2  *  CT(tr))**.5  /  b(tr)) 

Pi(tr  tl  hover)  =  (1  /  B(tr))  *  (T(tr)**1.5  / 

(2  *  rho  *  A(tr))**.5) 

SIGMA ( tr) = (b ( tr )  *  C(tr))  /  (R(tr)  *  PI) 

Po(tr  hover) = (SIGMA (tr)  *  Cdo(tr)  *  rho  *  A(tr)  * 

V(tr  tip) **3 ) /4400 

Pt(tr  hover) =Po (tr)  +  Pi(tr  tl) 

MU ( tr) =V ( fwd)  /  v(tr  tl) 

Po(tr  fwd)=Po(tr  hover)  *  (1  +  4.3  *  MU(tr)**2) 

T ( tr  fwd) =Pt (mr  fwd)  /  (RV(mr)  *  L(tr)) 

CT ( tr  fwd) =T ( tr  fwd)  /  (A(tr)  *  rho  *  V(tr  tip)**2) 

B ( tr  fwd) =1- ( (2  *  CT(tr) ) ** .5  /  b(tr)) 

Vi ( tr  hover) = (T(tr)  /  (2  *  rho  *  A(tr))**.5 

Vi  ( tr  fwd)  =  (-  ( v ( fwd)  **2  /  2)  +  (V(fwd)**2  /  2)**2 

*(Pi(fwd)  /  P (hover) **2  *  Vi(tr  hover) **4 ) ** . 5 

Pi  (tr  fwd ) =  (1  /  B(tr))  *  T(tr)  *  Vi ( tr  fwd) 

Pt(tr  fwd)=Pi(tr  fwd  tl)  +  Po(tr  fwd) 

Mach  Tip(tr)=  (V(fwd)  +  V(tr  tip))  / 

(gamma  *  g  *  R  *  T)**.5 

where : 

Pp  is  the  parasite  power. 
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EFPA  (ff)  is  the  effective  flat  plate  area  (forward  flight). 
Vi (hover)  is  the  induced  velocity  in  hover. 

Pi (hover)  is  the  induced  power  required  to  hover. 

Po (hover)  is  the  profile  power  required  to  hover. 

SIGMA  is  the  solidity. 

Cdo  is  the  coefficient  of  drag. 

RKO  is  the  density. 

A(mr)  is  the  area  of  the  main  rotor. 

V(mr  tip)  is  the  tip  velocity  of  the  main  rotor. 

R(tr)  is  the  radius  of  the  tail  rotor. 

L(tr)  is  the  length  of  the  helicopter  tail  from  the 
main  rotor  shaft  to  the  tail  rotor. 

T(tr)  is  the  thrust  of  the  tail  rotor. 

CT(tr)  is  the  coefficient  of  thrust  of  the  tail  rotor. 

B(tr)  is  the  tip  loss  (tl)  factor  (tail  rotor). 


PTOT  (PRINTER)  (CONT) 
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PTOT  (PRINTER)  (CONT) 


PTOT  (PRINTER)  (CONT) 


PTOT  (PRINTER)  (CONT) 


PTOT  (ABBREVIATED)  (CONT) 


PTOT  (ABBREVIATED)  (CONT) 


PTOT  (FULL  DISPLAY)  (CONT) 


EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS  (PTOT — PRINTER) 


Calculate  the  total  engine  shaft  horsepower  required 
for  the  example  helicopter  from  0  to  160  knots  at  standard 
sea  level  (0  PA,  15  DEG  CEN) .  Increment  the  velocity  every 
20  knots. 

Note:  When  prompted  to  input  the  control  number,  the 
user  should  recall  that  this  number  is  of  the  form  CCC.XXXFF. 
The  CCC  describes  the  starting  value.  .XXX  is  the  final 
value,  and  FF  is  the  incremental  spacing.  If  the  starting 
value  is  zero,  the  CCC  need  not  be  entered.  For  this 
example,  input  .16020. 


KEYSTROKES 

DISPLAY 

XEQ  (ALPHA)  PTOT  (ALPHA) 

INPUT  CNT  NO 

0.16020 

(R/S) 

PA=? 

0 

(R/S) 

TEMP  C=? 

15 

(R/S) 

AR  TR=? 

8  ' 

(R/S) 

NO.  TR  BLS? 

4 

(R/S) 

CDO  TR=? 

0.0145 

(R/S) 

EFPA  KNOWN? 

0 

(R/S) 

CLEAN  LINES? 

1 

(R/S) 

SKID? 

1 

(R/S) 

EFPA=20 . 95 

(R/S) 

NO.  ENGS=? 

2 

(R/S) 

F6 


Note:  This  program  can,  at  this  point,  only  be  executed  using 

skid  data  because  the  gross  weight  computation  used  in  the 
"WT"  program  was  computed  on  the  basis  of  skid  landing  gear. 

Definitions : 

PA  is  the  pressure  altitude. 

TEMP  C  is  the  temperature  in  centigrade. 

AR  TR  is  the  aspect  ratio  of  the  tail  rotor  (historically 
between  4.5  and  8.0) . 

NO.  ENGS  is  the  number  of  engines. 
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PRINTER  OUTPU' 


TOTAL  POWER 


>jU*16~44, 99 
pcpo=20,95 

yr L  ''  KH0T?  ■ 
c?HP 


3  *** 

j  :5b  1  *»* 

2ft  *** 

i 608  *** 

40  *** 

;  204  *** 

99  **» 

: :07  *** 

39  *** 

[?i  *** 

1 00  *** 

1356  ■*** 

129  *** 

1h4?  *s* 

*40  -*** 

2049  «** 

168  *** 

2579  «** 
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6.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS  (PTOT— ABBREVIATED) 
Note:  Clear  PTOT  (PRINTER)  and  insert  PTOT  (ABBREVIATION). 

Clear  flags  02  and  05  manually. 

KEYSTROKES  DISPLAY 


(SHIFT) 

CF  02 

0 

(SHIFT) 

CF  05 

0 

XEQ  (ALPHA)  CLP  (ALPHA) 

(ALPHA)  PTOT  (ALPHA) 

AFTER  INPUTTING  PTOT  (ABBREVIATED) : 

CLP__ 

KEYSTROKES 

DISPLAY 

XEQ  (ALPHA)  PTOT  (ALPHA) 

FWD  VEL=? 

0 

(R/S) 

PA=? 

0 

(R/S) 

TEMP  C=? 

15 

(R/S) 

AR  TR=? 

8 

(R/S) 

NO.  TR  BLS? 

4 

(R/S) 

CDO  TR=? 

0.0145 

(R/S) 

EFPA  KNOWN? 

1 

(R/S) 

EFPA=? 

20.95 

(R/S) 

NO.  ENGS=? 

2 

(R/S) 

ESHP=1861 . 14 

(R/S) 

FWD  VEL? 

20 

(R/S) 

ESHP=1608 . 01 

(R/S) 

FWD  VEL? 

40 

(R/S) 

ESHP=120  4 . 25 

(R/S) 

FWD  '/EL? 
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r 
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(R/S) 

1107. 36 

(R/S) 

FWD  VEL? 

80 

(R/S) 

1173.43 

(R/S) 

FWD  VEL? 

100 

(R/S) 

ESHP=1356 . 32 

(R/S) 

FWD  VEL? 

120 

(R/S) 

1646.68 

(R/S) 

FWD  VEL? 

140 

(R/S) 

ESHP=2049 . 57 

(R/S) 

FWD  VEL? 

160 

(R/S) 

ESHP=2575 .93 

Note 

:  When  prompted  "EFPA  KNOWN?"  a 

1  was 

inputted  (Yes) 

since  the  EFPA  was  known  from  the  PTOT  (PRINTER)  program. 

This 

results  in  a  more  rapid 

program 

execution . 

7. 

EXAMPLE  PROBLEM  AND  USER 

INSTRUCTIONS 

(PTOT-FULL  DISPLAY) 

Note 

:  Clear  PTOT  (ABBREVIATION)  and 

input 

PTOT  (FULL 

DISPLAY) .  Also  clear  flags 

02,  03, 

and  05. 

KEYSTROKES 

DISPLAY 

XEQ 

(ALPHA)  PTOT  (ALPHA) 

FWD  VEL=? 

0 

(R/S) 

PA=? 

0 

(R/S) 

TEMP  C=? 

15 

(R/S) 

AR  TR=? 

8 

(R/S) 

NO.  TR  BLDS? 

4 

(R/S) 

CDO  TR=? 

0.0145  (R/S) 


EFPA  KNOWN? 


1  (R/S)  EFPA=? 

20.95  (R/S) 

For  the  inputted  forward  velocity  of  0  knots,  the  following 
power  values  are  displayed: 

Pi  (fwd) =1227.14 
Pp=0 . 0 

Po ( fwd) =296.54 
Pt (fwd)=1523.69 
MCH (mr) =.65 
MCH ( tr ) =  0 . 5  8 
Pi(tr  fwd)=85.04 
Po(tr  fwd) =29. 51 
Pt(tr  fwd)=114.55 
PTOT=1638 . 24 

The  user  is  then  prompted  for  the  number  of  engines  (this 
only  occurs  during  the  first  iteration) .  After  inputting  2 
engines,  the  engine  shaft  horsepower  required  at  zero  air¬ 
speed  is  displayed:  1861.14.  After  pushing  the  (r/s)  key, 
the  user  will  be  prompted  for  the  forward  velocity,  pressure 
altitude,  and  temperature.  In  this  way,  power  requirements 
at  any  airspeed  and  altitude  may  be  computed  anytime  during 
the  program  operation.  The  user  may  transcribe  a  table  of 
values  from  the  displayed  output. 
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8.  PRINTER  OUTPUT  (PTOT — FULL  DISPLAY) 

With  the  HP  8214 3A  printer  attached,  the  following  data 
is  outputted  during  the  running  of  the  program  (two  itera¬ 
tions  are  shown) . 


fi.fifi  »** 

pr  2?7. 

PP=fi,fil3 
PO  PD=2'?6.C.4 
°T  PD=!523,p9 
HCH  «R=fi.*3 
NCK  TR=fi.58 
pt  tpf=85,w 
PH  TRF=29.5l 

or  TRFsjia.55 
PT0T»1638.24 
£SHP=!S6h  ;•» 


PT  pd=!023,74 
Ppri ,?4 
or,  £>299.39 
pt  pp= 1 324.  T9 
**CH  1P=8.68 
my  rprfi.it 
pt  TPF=59,5fi 
pfi  TRF=29.36 
pt  -pcrfia, 42 
?TnT=uu.2fi 
E?HP=!60 8 . h ! 
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01M.8L  'PTOT' 

30  GTO  03 

77*LBL  *p0  PD 

»2  ?F  21 

404I.8L  82 

79  RCL  13 

83  9F  83 

4!  *EFP8=’* 

79  7 

M  * IHPUT  CHT  MO. ' 

42  PROMPT 

80  Y TV 

as  PROMPT 

43  PRO 

81  RCL  12 

88  STO  00 

44  STO  04 

82  * 

07  FS?  02 

45  vpp  -PRy- 

2'  Pf !  1  I 

88  GTO  82 

40*lBL  03 

84  * 

08  XEO  •PMO” 

47  FIX  8 

P5  Pi'!  P7 

\0  *0P  TP=?" 

48  RCL  09 

80  * 

n  PROMPT 

4P  any 

87  RCL  1? 

12  STO  81 

50  *VEL  <  KNOTS  >* 

88  * 

13  "HO. TP  BIS’* 

51  PRO 

89  4400 

\i  PROMPT 

52  *E$HP* 

90  / 

15  STO  50 

S3  PRO 

9}  970  ?! 

18  *CdO  tr=p* 

S4  ODV 

0?  XE@  "Ml.i* 

17  PROMPT 

55*LBL  0! 

97  vt2 

18  STO  82 

50  RCL  09 

04  4,3 

10  SP  82 

57  1«T 

95  * 

20*LBL  02 

58  PRX 

90  ! 

21  SP  12 

50  .50248 

07  T 

22  8ty 

00  / 

08  * 

23  000 

9!  STO  25 

00  STO  24 

24  "TOTAL  POWER* 

02  3 

100  PTO 

25  PRO 

03  VtX 

101*161  "MU* 

20  80V 

04  PCL  04 

102  RCL  25 

27  0BV 

05  ?CL  11 

103  RCL  13 

28  CP  12 

00  * 

104  / 

20  5 CL  38 

07  . 5 

105  RTO 

30  *GU=* 

08  * 

1004LBL  *VI* 

31  QRCL  X 

00  RCL  25 

197  RCL  70 

32  ftVlEU 

?0  7 

108  RCL  r. 

33  -EPPO  KH0WW’* 

v+y 

100  RCL  12 

34  PROMPT 

?2  * 

110  * 

35  X'07 

73  550 

in  2 

30  G’0  02 

74  ' 

112  * 

37  XEO  *EF?0* 

yc  .^(j 

11?  / 

30HBL  *DP* 

'8  GTO  *DT  Fjj* 

1 !4  SORT 

53 


115  'jTO  29 

153  + 

131  STO  44 

ll^LBL  *PI  Fd‘ 

154  STO  22 

132  7*2 

117  RCL  25 

155*LBL  *TR* 

193  RCL  1! 

1  is  y*2 

159  RCL  39 

104  * 

!!9  RCL  29 

157  1999 

195  RCL  43 

129  Vt2 

158  ' 

199  * 

!2!  ■' 

159  S8RT 

197  RCL  41 

vs?  o 

199  1,3 

199  yov 

122  / 

191  * 

loo  / 

124  CHS 

192  STO  42 

299  STO  45 

125  RCL  25 

193  RCL  95 

291  2 

126  **2 

194  + 

292  * 

127  PCI  29 

195  .5 

293  SORT 

123  Xt2 

199  * 

294  RCL  59 

129  2 

197  STO  49 

295  f 

129  * 

198  RCL  42 

299  CHS 

13!  / 

199  RCL  91 

297  1 

132  Kt2 

179  / 

298  * 

12:  1 

£7t  STO  58 

203  STO  4? 

134  + 

172  RCL  39 

218  RCL  41 

1:5  3QRT 

173  559 

211  1.5 

139  + 

174  * 

212  vty 

137  SORT 

!?5  RCL  98 

213  RCL  43 

133  RCL  29 

179  RCL  49 

2J4  RCL  11 

139  * 

177  * 

215  * 

14fl  PCI  39 

17?.  / 

219  2 

141  * 

1?9  STO  41 

217  * 

14?  RCL  15 

199  RCL  42 

218  SORT 

143 

1g;  y*7 

310  , 

144  559 

182  p! 

229  RCL  47 

145  ■' 

183  * 

'>?)  , 

149  STO  27 

104  STO  43 

222  559 

147  PTH 

185  4.5 

223  -,J 

Hfl+LBL  ‘S3  FT*" 

139  ENTER* 

224  STO  4§ 

H9  m  *vi* 

187  RCL  98 

225  RCL  59 

159  RCL  28 

138  * 

229  RCL  58 

151  + 

139  RCL  42 

152  KEO  ’pQ  F?‘ 

100  * 

223  PCI 

64 


P] 

267  / 

395  PCL  25 

2)fl  * 

263  559 

396  4*2 

071  / 

269  * 

397  PCL  26 

232  STD  29 

2?9  STO  53 

399  v+7 

233  ?CL  ** 

271  PCL  *3 

709  2 

23*  3 

07 p  pf;  *  f 

71tf  * 

P15  YtY 

2?3  * 

7  4  4 

236  PCL  43 

274  PCL  ** 

7*  ?  Vf- 

23?  * 

275  ‘4*2 

7  4  7  \ 

239  PCL  !1 

276  * 

;  4*  ♦ 

239  * 

277  / 

3!5  30P* 

2*9  PCL  92 

2?8  STO  5* 

2*1  * 

•?7Q  2 

Vi?  SOP' 

2*2  PCI  29 

239  * 

718  PCL  26 

2*3  * 

23!  SQPT 

719  * 

244  4400 

232  PCL  59 

320  PCL  53 

2*5  / 

233  i 

701  * 

2*6  S70  49 

234  CHS 

2*?  PCI  *3 

235  ! 

707  / 

2*3  * 

236  * 

?2*  PCL  55 

2*9  STfl  59 

237  STO  55 

70^  / 

259*L8L  -TR2* 

233  PCL  25 

726  STO  56 

251  PCI  25 

289  4*2 

7^*?  nr-1  -vj 
•jij  -  LL  s.i. 

252  PCI  ** 

299*LBL  *viap>- 

323  * 

?P7  / 

291  PCL  53 

70Q  CO 

25*  3T0  51 

292  PCL  11 

339  * 

255  '4*2 

293  PCL  *3 

33!  4E0  -PCOHP 

25b  *.3 

?94  * 

332  + 

25?  * 

OQC  0 

333  STO  67 

oen  4 

296  * 

33*  XEO  ‘ESHP* 

2*59 

297 

335  STO  63 

269  PCL  *9 

293  ?6PT 

336  PPS 

2b  1  * 

299  STO  26 

737  RDu 

262  STD  52 

399  4*2 

733  ISG  99 

263  PCL  22 

39!  / 

339  CTO  91 

26*  PCL  93 

392  2 

3*9  BEEP 

265  PCL  *9 

393  / 

741  STOP 

266  * 

394  CHS 

3*2  END 
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PTOT  (ABBREVIATED)  LISTING 


91*IBL  •pTi)T* 

92  ?F  33 
33«L?L  93 
94  ei?  2 
85  -CMB  VEL'7" 

98  P»0«Pr 
37  .cooio 

98  r 

34  jTO  25 

18  3 

! 1  V*X 

•  0  coo  85 
n  <2T0  84 
-.d  yp&  '5H0* 

15  p<p  82 
GT0  94 
•.?  -OR  TC=7* 

‘3  PO0MRT 
•9  $TQ  81 
>4  BLS-" 
21  PPOHPT 
■jo  ?T0  59 

23  ’CdO  5®3'‘ 

24  PR0HPT 

25  5tC  32 
28  5?  92 

07  -ffpq  KNOWN? ■ 
03  PRnuPT 
20 

38  830  82 
3f  VEO  ‘EFPO’ 
32*LBL  "OB’ 

33  CTO  94 
34*LBL  82 

75  -CCPQ=?" 

38  PROW  3 


37  870  84 

;  * 

jiHLBL  84 

"4  STO  2* 

74  CCL  84 

75  &TVi 

49  PCI  U 

?8*1.PL 

41  * 

73  PCI  13 

**C  •  - 

17  * 

"*0  , 

44  Pri  25 

39  ?TW 

iC:  "* 

31*1.81  ’PI" 

48  V+X 

32  PCl  38 

47  % 

S3  PCI  SI 

IK  cc,9 

34  PCI  12 

4*3 

35  * 

5 3  otp  of 

38  2 

C1  qto  *PT  FB* 

37  * 

co* i  ai  -PO  F3* 

ct  3f  «7 

34  o.Q  r 

54  7 

48  $T(|  28 

--in 

3 ! ♦LBL  'pl 

58  RCw  12 

92  PCI  25 

c-  * 

43  'i*2 

cs  PCI  11 

44  PCI  29 

SO  * 

os  '-:+2 

88  PCI  9? 

% 

&  1  * 

97  2 

8?  PCC  19 

98  / 

h/:  * 

44  OHO 

84  4488 

188  PCS.  25 

8C 

’81  Vito 

88  ?70  21 

182  PCI  29 

87  KEO  "W 

'93  St 2 

88  vt 

184  2 

84  1,7 

1  Af,  ■* 

7fl  * 

198 

71  1 

187  SfO 

**0  ♦ 

198  1 
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1 


67 


AI7  x 

253 

0'J7  < 

o;§  PCL  29 

254  ?7i}  54 

290  - 

2! 9  * 

255  2 

•JQl  CQ5T 

229  44@fl 

250  * 

292  * 

■JO ! 

257  8Qpr 

707  70pT 

•jo?  q||7  47 

258  PCL  5& 

294  PCL  20 

223  PCL  49 

oeq  f 

295  * 

224  + 

200  CHS 

290  PCL  53 

225  STO  50 

26!  1 

777  * 

2284LBL  *TP2' 

262  + 

293  558 

22?  PCL  25 

203  STO  55 

777  , 

228  ?CL  44 

204  PCL  25 

300  PCL  55 

OOC)  / 

205  yt? 

301  f 

239  STO  51 

2604LBL  •VliTR)* 

302  STO  50 

231  Xt2 

20?  PCL  53 

303  PCL  22 

232  4.3 

208  PCL  H 

304  + 

233  * 

269  PCL  47 

305  PCL  52 

234  1 

2?0  * 

300  * 

235  + 

•J?t  0 

30?  '€5  -PCOHP 

238  PCI  49 

070  * 

308  + 

309  STO  03 

23S  $T0  52 

274  8QR7 

310  XE9  -6SHP* 

239  PCI  22 

275  STO  20 

71 !  STO  03 

240  POL  08 

2?0  vt'2 

312  *ESHP=* 

24!  pcl  4» 

•**7*7 

313  HPCL  * 

242  * 

278  2 

314  QUIEU 

243  / 

77?  / 

315  STOP 

244  558 

280  CHS 

310  QTQ  03 

245  * 

281  PCL  25 

31?  FHB 

240  STO  53 

232  ¥*2 

247  PCI  43 

233  PCL  20 

248  PCL  1! 

234  xt2 

249  * 

2:5  2 

259  PCL  44 

288  * 

251  X+2 

JS7 

OCO  J 

238  '#2 
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C.  PTOT  (FULL  DISPLAY)  LISTING 


81*i_SL  ”PT0T“ 

32  SF  03 
83*L8L  93 
04  FIX  2 
05  SBV 
96  QBV 

87  -PyB  VEL=7* 

08  PROMPT 
09  'S'5  55 

10  PRX 

11  .59248 
?  '?  / 

13  STO  25 

14  3 

15  vts 

16  XE0  “RHO* 

I?  PC"  02 

1?  GTQ  04 

19  -QP  TP=7* 

20  PROMPT 

2!  STO  81 

22  *HO.  TR  8l3S7* 

23  pPO0PT 

24  STO  59 

25  “CdO  TR='?* 

26  PROMPT 

27  STO  82 
cF  ^2 

29  ’EPPO  KHOHK',‘ 
70  PROMPT 

31  X>07 

32  QTO  82 

33  XEQ  -EFP0" 
34*LBL  *DB" 

35  GT0  84 
36*161  82 

3,7  -pppa=7* 

33  PROMPT 
39  9T0  64 
40*181  94 

41  »CL  04 

42  scl 

4}  * 


44  ,5 

45  * 

46  RCL  25 

47  3 
43  v+x 
49  * 

58  550 
51  / 

cc  cto  28 
53  QTO  -PI  FD* 

54*LBL  *°0  PB" 

cc  npi  ,  1 

56  3 

57  Yty 

53  RCL  *2 

59  * 

68  RCL  11 
61  * 

62  RCL  07 

63  * 

04  RCL  19 

65  * 

66  4400 

67  / 

68  STO  2! 

69  y.EO  *«!.!• 

70  Xt? 

71  4tC 

72  * 

73  1 

7 4  * 

75  * 

76  STO  24 

77  -PQ  rr|=- 
70  0RCL  Y 
79  QVIEU 

30  STOP 
3!  RTN 
32*LBL  * MU¬ 
ST  RCL  25 
34  Rf:L  13 
Of 

36  °th 


37*LSl  "“I" 

33  »CL  36 
39  RCL  11 

90  RCL  12 

91  t 

92  2 

93  * 

94 

95  S5PT 

96  STO  20 
97W.BL  *PI  PB 
93  RCL  25 

99  Vf2 
108  RCL  28 
■01  Vf2 

102  f 

103  2 

104  ■ 

105  CHS 
186  RCL  25 
107  Xt2 
188  RCL  28 
!89  X*2 
110  2 

111  * 

112  f 

113  Yt2 

114  l 

•  ie  + 

116  SORT 

117  * 

113  SORT 
i<o  poL  20 
120  * 

121  RCL  36 

122  * 

123  RCL  *5 
!24 

125  558 
!2< 

127  STO  27 
123  RTH 

•  ?o*i  pi  >5T  : 
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!7@  XEQ  -VI* 

173  RCL  05 

216  CHS 

131  -PI  FD=" 

174  + 

017  < 

132  PRCL  X 

175  .5 

213  * 

133  QVIEU 

176  + 

219  STO  47 

134  STOP 

177  STO  48 

220  RCL  41 

175  RCL  28 

178  RCL  42 

22!  1.5 

136  *PP=“ 

170  RCL  01 

ooo  y+V 

137  PRCL  X 

130  / 

227  RCL  43 

138  PVfEU 

18!  STO  58 

224  RCL  11 

139  STOP 

132  RCL  38 

225  * 

UP  + 

133  558 

OOf  0 

141  XEQ  "PC  PH- 

184  * 

007  * 

U2  ♦ 

135  RCL  03 

228  SORT 

143  -PT  FS=* 

186  RCL  40 

000  i 

144  PRCL  X 

137  * 

233  RCL  47 

145  QVIEW 

133  # 

27!  / 

U6  STO  22 

139  STO  4! 

232  550 

147  STOP 

190  RCL  42 

077 

1 4fl  RCL  25 

191  Xt2 

234  STO  43 

149  RCL  17 

192  R! 

235  RCL  59 

150  + 

193  * 

236  RCL  53 

!5!  461.5 

(?4  STO  47 

07.7  $ 

152  EHTEP+ 

195  4,5 

238  RCL  42 

153  RCL  18 

196  E«TER+ 

279  PI 

154  * 

197  rcl  08 

240  * 

155  SORT 

198  * 

241  i 

156  .304P 

!?0  RCL  42 

242  ST0  29 

157  / 

200  * 

243  RCL  44 

153  / 

201  PTO  44 

244  7 

159  *«CH  HP=" 

202  >'*2 

245  m 

160  PRCL  X 

203  RCL  11 

246  RCL  43 

161  PVIEW 

204  * 

047  * 

162  STO  37 

205  RCL  43 

243  RCL  11 

163  STOP 

206  « 

249  * 

164»LBL  -TP- 

207  tr.l  4! 

250  RCL  02 

165  C!X  2 

2«8  VO Y 

25!  * 

166  RCL  36 

209 

252  RCL  2Q 

167  1000 

210  STO  45 

253  * 

168  ' 

01  1  0 

_  .  1  ■_ 

254  4400 

169  SORT 

212  * 

255  7 

170  1.3 

213  SORT 

256  STO  48 

171  * 

2U  PCL  59 

25?  PCL  43 

'72  ST 0  42 

215 

250  * 
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$T0  50 

302 

PCL  11 

345 

* 

2604LBL  'TP2* 

303  RCL  43 

340 

SORT 

26 1  PCI  25 

304 

* 

347 

.3848 

262  PCL  44 

305 

0 

L 

348 

263  / 

386 

* 

349 

/ 

264  ?TQ  51 

387 

/ 

358 

ST0  60 

265  Xt2 

388 

SORT 

351 

■HCH  TP=" 

266  4.3 

30? 

STO  26 

352 

Q0CL  X 

26?  * 

3*8 

m 

353 

QVIEW 

26?  ! 

311 

/ 

354 

STOP 

26?  r 

312 

355 

PCL  56 

27?  PCL  4? 

7*  7 

/ 

356 

■PI  TPC:- 

2?!  * 

314 

CHS 

357 

HPCL  X 

272  STO  52 

315 

eCL  25 

358 

OVIE'8 

273  PCI  22 

316 

v+2 

359 

STOP 

274  RCL  ?? 

317 

PCL  26 

368 

PCL  52 

275  PCL  4fl 

318 

¥+2 

361 

•P0  TPP=" 

276  * 

319 

362 

QPCL  X 

^7?  / 

328 

* 

363 

QVIEW 

27?  558 

321 

/ 

364 

STOP 

27?  * 

322 

X+2 

365 

PCL  57 

298  3’0  53 

323 

( 

366 

■PT  TPF=- 

281  PCI  43 

324 

+ 

367 

ORCL  X 

232  RCL  11 

325 

SORT 

368 

QVIEW 

2?3  * 

326 

+ 

36° 

STOP 

2?4  PCI  44 

7j  7 

SORT 

370 

PCL  22 

285  Xt2 

323 

PCL  26 

37! 

+ 

286  * 

32? 

* 

•PTOT=" 

287  / 

338 

RCL  53 

373 

ORCL  X 

238  370  54 

33l 

* 

374 

QVIEW 

23?  2 

332 

558 

77c 

!•  1  -J 

STO  63 

290  * 

VV5 

/ 

S76 

STOP 

291  38P7 

334 

PCL  55 

377 

XEO  -PCOHP 

292  PCL  59 

335 

378 

ST+  63 

293  / 

336 

STO  56 

37? 

XEO  ’ESHP- 

294  C«S 

337 

PCL  52 

388 

•ESHP=" 

2?5  i 

338 

+ 

381 

QPCL  X 

296  + 

330 

STO  57 

382 

QVIEW 

2«7  5T0  55 

348 

PCL  25 

383 

STOP 

298  ?CL  25 

34! 

PCL  44 

384 

CTO  83 

299  Vt2 

342 

4. 

385 

END 

3004LBL  'Viap>- 

343 

PCL  18 

391  PCL  53 

744 

401.3 
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PCOMP  (POWER  REQUIRED  DUE  TO  COMPRESSIBILITY  EFFECTS) 


1.  PURPOSE 

This  subroutine  is  used  in  the  main  program,  PTOT.  It 
computes  the  additional  horsepower  necessary  due  to  the 
compressibility  effects  from  the  main  rotor. 

2 .  EQUATIONS 

M(tip  mr)=  (V(tip  mr)  +  V(fwd  mr) )  / 

(gamma  *  g  *  R  *  T)**.5 

MD=  M(tip  mr)  -  M(crit)  -  0.06 

P ( COMP ) =  rho  *  A(mr)  *  V(tip  mr)**3  *  sigma (mr)  * 

(0.012  *  MD  +  0.01  *  MD**3 ) 

where : 

V(fwd)  is  the  forward  velocity  in  knots. 

V ( tip)  is  the  main  rotor  tip  velocity. 

M(crit)  is  the  critical  mach  number  (a  good  approximation 
is  .65) . 

DISCUSSION:  The  horsepower  required  due  to  compressibility 

effects  does  not  become  a  positive  value  until  a  certain 
forward  velocity  is  attained.  By  providing  a  check  for  nega¬ 
tive  MD,  only  positive  values  of  PCOMP  are  stored  in  Register 
6  3  ( R6 3 )  .  When  run  independent  of  the  main  program,  MD  is 
displayed  if  the  value  is  negative.  PCOMP  is  displayed  and 
stored  in  R63  otherwise.  When  run  in  conjunction  with  PTOT, 
MD  and  PCOMP  are  not  displayed.  PCOMP  is  computed  and  added 
to  the  total  power  computed  in  PTOT. 
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FLOWCHART  CPCOHP) 


3 


4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 


A)  Compute  the  horsepower  required  due  to  compressibility 
effects  at  20  knots  forward  velocity,  0  PA,  and  15  deg  C. 

Register  25  contains  the  value,  in  ft  per  sec,  of 
forward  velocity.  Register  11  contains  the  density  altitude 
(rho) .  To  execute  PCOMP  independent  of  the  main  program,  the 
desired  forward  velocity  must  be  converted  to  units  of  ft/sec 
and  stored  into  Register  25.  The  subroutine  "rho"  must  be 
executed  to  insure  the  correct  value  of  density  is  stored  in 
Register  11. 


KEYSTROKES 

DISPLAY 

20  enter 

20.00— 

0.59248  / 

33.76 

sto  25 

33.76 

XEQ  (alpha)  RHO  (alpha) 

PA=? 

0  (r/s) 

TEMP  C=? 

15  (r/s) 

2.38  -03 

XEQ  (alpha)  PCOMP  (alpha) 

-0.03 

DISCUSSION:  At  20  knots,  the  compressibility  factor  is 
negative,  therefore  there  is  no  extra  horsepower  needed  due 
to  compressibility  effects.  The  value  of  MD  is  displayed. 

B)  Compute  the  horsepower  required  due  to  compressibility 
effects  at  160  knots  forward  airspeed,  4000  ft  pa,  35  deg  C. 
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KEYSTROKES 


DISPLAY 


160  enter 

160 

0.59248  / 

270.05 

STO  25 

270.05 

XEQ  (alpha)  RHO  (alpha) 

PA=? 

4000  (r/s) 

TEMP  C=? 

35  (r/s) 

1.92 

XEQ  (alpha)  PCOMP  (alpha) 

418.43 

DISCUSSION:  At  a  forward  velocity  of  160  knots  at  4000 
ft  PA  and  35  deg  C,  an  additional  power  requirement  of  418.48 
horsepower  results  due  to  compressibility  effects  from  the 
main  rotor.  This  value  is  stored  in  Register  63  and  will  be 
added  to  other  power  requirements  in  the  main  program. 
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PROGRAM  LISTING 


01 ♦LBL  -°C0«P’ 

92  PCL  25 

93  PCL  13 

04  * 

95  PCL  18 
00  401.8 
07  * 

89  58PT 
09  / 

18  .3848 
11  * 

12  ?TO  37 

13  PCL  03 

14  - 

15  .88 

16  - 

!7  X<97 

18  GTO  81 

19  8T0  40 
29  3 

V-fV 
00  \ 

23  * 

24  ,012 

25  EHTfPf 

28  PCI  46 
2?  * 

79  ♦ 

29  ®CL  19 
39  * 

3!  PCL  13 

7^  7 
c.  J 

33  vts 

'4  * 

35  PCL  12 

36  * 

37  PCL  11 
39  * 

39  559 

40 

41  310  83 
42*LBL  01 
43  END 


ESHP  (EQUIVALENT  SHAFT  HORSEPOWER) 

1.  PURPOSE 

This  subroutine  is  used  in  the  main  program  PTOT.  It 
computes  the  engine  shaft  horsepower  required.  The  ESHP  is 
equivalent  to  the  rotor  shaft  horsepower  (PTOT  +  PCOMP) 
adjusted  for  transmission  and  accessory  losses.  In  addition, 
a  10  percent  shaft  horsepower  loss  is  computed  for  every 
additional  engine  installed. 

2.  EQUATIONS 

ESHP=  (0.10  *  RSHP  *  (N-l)  +  1.03  *  RSHP  +  10.0  HP 
where : 

N  is  the  number  of  engines  installed. 

10.0  hp  is  the  approximate  horsepower  required  due  to 
accessory  usage. 


RSHP  is  the  rotor  shaft  horsepower  (PTOT  +  PCOMP) . 


FLOWCHART  (ESHP) 


4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS 

Compute  the  engine  shaft  horsepower  required  for  a  heli¬ 
copter  with  two  engines  having  a  RSHP  of  1500  hp. 

KEYSTROKES  DISPLAY 

1500  STO  63  1500 

CF  05  1500 

XEQ  (alpha)  ESHP  (alpha)  NO.  ENGS=? 

2  (r/s)  1705.00 

DISCUSSION:  A  helicopter  with  a  RSHP  of  1500  hp  will 

require  205  additional  horsepower  due  to  transmission  and 
accessory  losses,  as  well  as  a  10  percent  SHP  loss  due  to 
an  additional  engine.  To  execute  this  subroutine  independently 
of  the  main  program,  a  value  for  RSHP  must  be  known  and 
stored  in  R63.  Flag  05  must  be  cleared  for  the  prompt  "NO. 
ENGS=?"  to  be  viewed. 

5.  PROGRAM  LISTING 


91 ♦LSL  ’£$«?• 
92  W  35 


33  GTO  31 

34  -HQ.  ENGS-7* 

35  p&OKPT 

96  STO  6? 

97  -S  85 
38»i.BL  01 
00  i?CL  67 
‘.0  1 


12  PCI  i'¬ 
ll  * 

'4  ,1 
t_5  * 

16  PCI  63 

17  1.93 
-a  * 


20  :S 

?j  * 

22  EHB 
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FM  (FIGURE  OF  MERIT) 


1.  PURPOSE 

This  subroutine  is  used  in  the  main  program  PHV  (Power 
to  Hover) .  It  computes  the  Figure  of  Merit  which  is  the 
ratio  of  induced  power  (Pi) ,  to  the  total  power  (Pt) ,  of 
the  main  rotor.  A  computer  value  of  between  0.7  and  0.8  is 
acceptable. 

2 .  EQUATIONS 

FM=  (100  -  ((Pt(mr  ige)  -  Pi(mr  oge) )  /  Pi (mr  oae) ) 

*  100)  *  .01 

where : 

Pt(mr  ige)  is  the  total  power  required  to  hover  in  ground 
effect  for  the  main  rotor  (stored  in  R30) . 

Pi(mr  oge)  is  the  induced  power  required  out  of  ground 
effect  for  che  main  rotor  (stored  in  R16) . 
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>ROMPT  "CLR  MR  fPHV , 
FM.CHO.RV 
INPUT 

PTOT.PCOMP.ESHP" 


4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 


A) 

Compute 

the  Figure  of 

Merit  of  a  helicopter  which 

has  Pi (mr  oge) 

of  10 00  hp  and 

a  Pt(mr  ige)  of  1500  hp. 

KEYSTROKES 

DISPLAY 

1000 

STO  16 

1000 

1500 

STO  30 

1500 

XEQ  (alpha)  FM 

(alpha) 

FIG  MER=  0.50 

(r/s) 

FM  OK? 

0 

(r/s) 

FM  HIGH? 

0 

(r/s) 

(program 

transfers  to  subroutine  "RV" 

B) 

Compute 

the  Figure  of 

Merit  for  a  helicopter  with 

Pi  (nr 

oge)  of  1250  hp  and  a  Pt(mr  ige)  of  1400  hp. 

KEYSTROKES 

DISPLAY 

1250 

STO  16 

1250 

1400 

STO  30 

1400 

XEQ  (alpha)  FM 

(alpha) 

FIG  MER=Q . 88 

(r/s) 

FM  OK? 

0 

(r/s) 

FM  HIGH? 

1 

(r/s) 

(program 

transfers  to  subroutine  (CHD 

C) 

Compute 

the  Figure  of 

Merit  for  a  helicopter  with 

a  Pi (mr  oge)  of 

1200  hp  and  a 

Pt(mr  ige)  of  1500  hp. 

KEYSTROKES 

DISPLAY 

1200 

STO  16 

1200 

1500 

STO  30 

i500 
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XEQ  (alpha)  FM  (alpha) 
(r/s) 


FIG  MER=0 . 75 


FM  OK? 

1  (r/s)  (If  flag  04  is  set,  the  user  is  prompted 

"clr  MR,  PHV,  FM,  CHD,  RV,  input  PTOT, 

PCOMP ,  ESHP."  If  flag  04  is  not  set, 
the  program  transfers  to  the  "WT" 
program  and  the  first  empty  weight 
approximation  is  displayed.) 

DISCUSSION:  To  run  this  subroutine  independently  of  the 

main  program  "PHV,"  the  values  for  Pi (mr  oge)  and  Pt(mr  ige) 
must  be  inputted  manually  into  their  appropriate  registers. 

In  the  first  example,  the  Figure  of  Merit  was  computed  to  be 
0.50,  well  below  the  minimum  acceptable  value  of  0.70.  The 
subroutine  "RV"  was  therefore  executed  (this  subroutine 
enables  the  user  to  increase  the  FM  value) .  In  the  second 
example,  the  Figure  of  Merit  was  higher  than  the  acceptable 
value  of  0.80  and  the  subroutine  "CHD"  was  executed  (this 
subroutine  enables  the  user  to  decrease  the  FM  value) .  In  the 
third  example,  the  Figure  of  Merit  was  within  the  specified 
limits.  When  executing  "FM"  as  part  of  the  main  program,  if 
the  "WT"  program  has  not  been  executed  (flag  04  has  not  been 
set) ,  then  the  program  automatically  transfers  to  "WT"  and 
displays  the  first  approximation  for  the  aircraft  empty  weight 
(.6  *  spec,  wt) .  If,  however,  flag  04  is  set,  the  user  is 
instructed  to  clear  from  program  memory  the  programs  that  are 
no  longer  needed  and  to  input  three  additional  programs. 
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PROGRAM  LISTING 


auijH. 

pry  i 
S3  rcl  16 

04  PMTPP* 

05  pci  3? 

36  ':CH 
a?  1 
as  vov 

S9  - 
IS  .81 
11  * 

13  'C!G  «EP=* 
13  apci  y 
u  auiEN 

15  'Vi  i 

16  STOP 

t?  -C*»  OK?" 

IS  PROMPT 

19  x= S3 

20  GTO  02 

21  F$3  04 


o*>  cTfl  SI 
•?7  y£Q  "07" 

2d*LSL  S! 

■>c  -CLP  *P.  C-HV 

26  "*-  CPC  ■ 

2?  PROMPT 
5P  "(-INPUT  PTQT 
-POMP.  5SPP. 
3«  PROMPT 
31  QTQ  Sd 
3?*L8L  02 
3?  -PM  SIGN  v 

34  PROMPT 

35  Y':0? 

36  GT0  S3 
3?  XEO  "PY" 
3S*LBL  S3 

7Q  yep  "CNJ* 
40*1.61  04 
dl  ENB 
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CHD  (CHORD) 


1.  PURPOSE 

This  subroutine  is  called  up  in  the  "FM"  program.  It 
is  designed  to  reduce  the  value  computed  for  the  Figure  of 
Merit.  When  executed,  the  former  chord  value  is  displayed 
momentarily.  The  user  must  input  a  larger  value  of  chord 
length.  This  larger  chord  will  increase  the  solidity, 
decrease  the  blade  loading  and  decrease  the  aspect  ratio. 
Once  these  values  have  been  computed  and  stored  in  their 
appropriate  registers,  the  program  transfers  to  the  "MR" 
program  and  immediately  displays  the  values  for  DL,  RV,  CT, 
SD,  c,  AR,  and  CL.  Program  execution  continues  as  before. 

A  new  Figure  of  Merit  will  be  displayed.  Proceed  as  before, 
depending  on  this  value. 

2 .  EQUATIONS 

SD=(c  *  b)  /  (PI  *  R) 

BL=CT  /  SD 
AR=R  /  C 

where : 

SD  is  the  solidity, 
c  is  the  chord. 

b  is  the  number  of  main  rotor  blades. 

R  is  the  radius  of  the  main  rotcr. 

CT  is  the  coefficient  of  thrust  (main  rotor) . 

AR  is  the  aspect  ratio. 
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FLOWCHART  (None) 


4.  EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS: 

This  subroutine  can  only  be  used  in  conjunction  with 
several  main  programs.  See  "PHV"  for  example  problems 
involving  this  subroutine. 

5.  PROGRAM  LISTING 


suLBl  >T|“ 
RCL 

93  *CH=* 

■04  aPfL  v 

a?  aviEU 

(00  P3E 

07  ‘MEii  C3=" 

00  PPffMPT 
09  ?T9  04 
10  ?C!  00 
!!  * 

It  SCI  05 

•s3  ruTEPt 

14  o? 

15  * 

IB 

17  C'7fi  <9 

'9  PCI  -4 
•_9 

20 

2!  *BL=* 

22  3SCL  * 

23  OVIEU 

24  STOP 

25  ®CL  05 

26  PCI  04 

-77  / 

29  2T0  32 
29  CTO  -OP' 
38  :HB 


RV  (ROTATIONAL  VELOCITY) 


1.  PURPOSE 

This  subroutine  is  called  up  in  the  "PM"  program.  It 
is  designed  to  increase  the  computed  Figure  of  Merit  values. 
When  executed,  the  former  tip  velocity  is  displayed  momentar¬ 
ily.  The  user  is  then  instructed  to  input  a  new  value  for 
V(tip).  This  value  must  be  lower  than  the  former  value.  The 
program  then  calculates  new  values  for  RV,  BL,  CT,  SD,  c,  AR, 
and  CL  using  the  new  V(tip).  The  program  automatically 
transfers  to  "MR"  and  displays  DL  and  the  above  values. 
Program  execution  continues  as  before.  A  new  Figure  of  Merit 
will  be  displayed.  Proceed  as  before,  depending  on  the  value. 
The  user  should  be  aware  that  a  dramatic  reduction  in  V(tip) 
is  required  to  increase  the  Figure  of  Merit. 

2 .  EQUATIONS 
RV=  V ( tip)  /  R 

BL=  -0.16667  *  ( (V)  max  fwd)  /  0.59248)  /  V(tip)) 

+  .15515 

CT=  GW  /  (A  *  rho  *  V (tip) **2) 

SD=  CT  /  BL 

c—  (SD  *  PI  *  R  (mr) )  /  b(mr) 

AR=  R(mr)  /  c(mr) 

CL=  (6.0  *  CT)  /  SD 
where : 

GW  is  the  gross  weight. 

R(mr)  is  .he  radius  of  the  main  rotor. 
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V(tip)  is  the  maximum  tip  velocity  of  the  main  rotor. 
RV  is  the  rotational  velocity  of  the  main  rotor. 

CT  is  the  coefficient  of  thrust  of  the  main  rotor, 
rho  is  the  density. 

SD  is  the  solidity. 

BL  is  the  blade  loading, 
b  is  the  number  of  main  rotor  blades, 
c  is  the  chord. 

AR  is  the  aspect  ratio. 

CL  is  the  coefficient  of  lift. 

3.  FLOWCHART  (None) 

4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

This  subroutine  can  only  be  used  in  conjunction  wi 
several  main  programs.  See  "PHV"  for  example  problems 
involving  this  subroutine. 


5.  PROGRAM  LISTING 


ijUi.BL  ■!?'/' 

0?  PCL  13 
61  >yT;p=> 

6i  CRCL 
fl5  QVIEH 
96  p$£ 

67  ‘HEW  VT I P- '■ " 
03  POOflPT 
a«  ?TO  13 
10  RCw  05 
ti  / 

]?  STO  08 
1?.  PCL  23 
14  POL  13 

i  ^  / 

16  i 166883 

17  CHS 
13  * 

1?  , 15515 

20  ♦ 

21  -Bl=* 

22  WCL  r 

23  3VIEH 

24  STOP 

25  PCI  12 

26  PCI  11 

V  * 

2S  PCI  13 

?q  '^2 


38  * 

3!  PCI  36 

?■?  %OY 
11  / 

74  STC  1 4 

35  XOv 

36  ' 

37  STO  1'? 

30  PI 

30  * 

40  PCL  35 

41  * 

42  PCL  06 

43  / 

44  ST  A  04 

45  PCL  05 

46  *<>v 

i?  / 

40  STO  32 
44  PCL  14 
50  6 
5!  * 

cj  S|'i  iq 

53  •• 

54  STO  33 

55  PCL  3! 

06  QTO  -00“ 
57  EHB 
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EFPA  (EFFECTIVE  FLAT  PLATE  AREA) 


1.  PURPOSE 

This  program  determines  the  effective  flat  plate  area  of 
a  design  helicopter  as  a  function  of  the  following  parameters: 
gross  weight,  clean  or  dirty  lines,  skid,  fixed  wheel,  or 
retractable  type  landing  gear.  The  formula  used  in  the 
determination  of  the  EFPA  is: 

EFPA  =  (A)  *  (GW) **.66667  where  the  coefficient  (A)  is 
determined  as  shown  below. 


SKID 

FIXED 

RETRACTABLE 

CLEAN  CONFIGURATION 

.032 

.037 

.027 

DIRTY  CONFIGURATION 

.050 

.056 

.046 

These  figures  were  computed  through  an  iterative  procedure 
of  comparing  the  known  EFPA  values  of  production  aircraft 
and  their  gross  weights  to  values  computed  with  the  above 
formula.  A  degree  of  accuracy  to  within  10%  can  be  achieved 
using  these  coefficients.  It  is  left  to  the  user  to  determine 
if  his  design  is  clean  or  dirty  (i.e.,  is  the  design  stream¬ 
lined  or  does  it  contain  numerous  wing  stores,  flat  plate 
canopy ,  etc . ) . 

2.  EQUATIONS  (See  above) 
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3.  FLOWCHART  (EFPA) 


RCL  R36  (GROSS  WEIGHT),  MULTIPLT 
BY  A,  AND  RAISE  BY  .6667 


4. 


EXAMPLE  PROBLEMS  AND  USER  INSTRUCTIONS: 


A)  Determine  the  effective  flat  plate  area  of  a  heli¬ 
copter  with  the  following  specifications: 

Configuration:  Dirty 
Gross  Weight:  14500  lbs 

Landing  Gear:  Fixed  wheel 


Note:  To  run  EFPA  independent  of  the  main  program,  the 

desired  gross  weight  must  be  inputted  manually  into  Register 
36.  This  is  done  automatically  when  execution  of  the  main 
program  is  performed. 


KEYSTROKES 
14500  STO  36 
XEQ  (alpha)  EFPA 
0  (r/s) 

0  (r/s) 

1  (r/s) 


(alpha) 


DISPLAY 

14500 

CLEAN? 

SKID? 

FIX  WHEEL? 
EFPA=3  3 . 3 


The  above  specifications  were  from  the  AAH-64  Attack 
Helicopter  whose  actual  EFPA  is  33  sq  ft.  The  computed  EFPA 
differs  by  .9%. 

B)  Determine  the  EFPA  of  a  helicopter  with  the  following 
specifications : 

Configuration:  Clean 
Gross  Weight:  2150  lbs 

Landing  Gear:  Skid 
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KEYSTROKES 


DISPLAY 


2150  STO  36  2150 

XEQ  (alpha)  EFPA  (alpha)  CLEAN? 

1  (r/s)  SKID? 

1  (r/s)  EFPA=5 . 3  3 

Again,  the  above  specifications  represent  a  production 
aircraft,  the  OH6A,  whose  actual  EFPA  is  5.4  sq  ft.  The 
computed  value  differs  by  1.3%. 

5.  PROGRAM  LISTING 


91+LBl  -EP$‘ 

23  .027 

27  QTO  19 

92  F!>'  2 

28*181  02 

93  "CLEAN?* 

29  .950 

94  POflPT 

39  070  10 

95 

31 *181  93 

9E  5T0  9! 

32  .953 

fl7  *SK!3'7- 

33  GTC  10 

03  PPOffPT 

J4*LSL  04 

09  JO07 

35  .932 

10  QTQ  92 

33  QTQ  10 

11  'FIX  WHEELS- 

374LBL  05 

!2  PROMPT 

33  .037 

13  1O0’7 

39*1.81  10 

14  QTQ  93 

40  9CL  33 

15  .04? 

41  .38837 

13  QTQ  19 

42  Y+X 

t?*LBl  01 

43  * 

1  q 

44  -£FP0=’ 

iq  opgirfpT 

45  ORCL  X 

20  .OB'1 

43  GVIEH 

21  QTp  04 

47  ST0  34 

22  "FIX  0HEEL> 

48  STOP 

23  °WHP' 

44  QTO  "DB 

34 

50  PB 

25  GT0  05 
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DENSITY  (RHO) 


1.  PURPOSE 

This  program  computes  the  density  of  the  air  at  a 
specified  pressure  altitude  and  temperature.  In  so  doing, 
the  program  automatically  calculates,  but  does  not  display, 
the  density  altitude  and  stores  this  value  in  Register  ten. 
The  equation  used  for  this  calculation  is  based  upon  the 
standard  ICAO  atmosphere  and  is  accurate  to  an  altitude  of 
36,089  ft. 

2 .  EQUATIONS 

RHO=  RHO (SSL)  *  (1  -  (K)  *  (H) ) **4.2561 
where : 

RHO (SSL)  is  the  density  of  the  air  at  standard  sea 

level  which  is  equal  to  0.0023769  (lb  sec**2/ft**4) . 

K=  6.875  *  10**-6 

H-  density  altitude  (ft) 
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3.  FLOWCHART  (RHO) 


AD- A 136  026 


Unclassified 


COMPUTER  PROGRAM  FOR  PRELIMINARY  HELICOPTER  DESIGN(U) 
NAVAL  POSTGRADUATE  SCHOOL  MONTEREY  CA  M  W  ROGERS 
SEP  83 

F/G  1/3 


4.  EXAMPLE  PROBLEM  AND  USER  INSTRUCTIONS: 

Find  the  density  and  density  altitude  when  the  pressure 
altitude  is  0.0  ft  and  the  temperature  is  15  deg.  C. 


KEYSTROKES 
XEQ  (alpha) 
0 

15 


RHO  (alpha) 
(r/s) 

(r/s) 


DISPLAY 

PA=? 

TEMP  C=? 
2.38  -03 


To  find  the  density  altitude  simply  recall  Register  10 
(-1.19) . 


5.  PROGRAM  LISTING 


*PH0* 

92  -PQr?- 
97 

34  6.375  6-86 
05  * 

06  CHS 
0?  1 
08  + 

04  5.2561 
‘0 

\)  -Ti EHP 

12  PROMPT 

13  273.15 

!4  + 

15  STf!  10 

16  / 

17  288.16 

18  * 

10  .23406 


28  y*v 

;'UC; 

22  « 

22  * 

•4  6.875  E-86 

AC  i 

26  STO  18 
V  6.875  E-06 
2?  * 

2 '3  OHS 

30  1 

31  * 

32  ENTER* 

33  4.2561 

34  Y*y 

35  . 8823769 

36  * 

37  STO  11 

38  END 
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REGISTER  FILE 


REGISTER  NUMBER - INFORMATION  IN  REGISTER 

00 - Landing  Gear  Information 

01 - Aspect  Ratio  (tr) 

02 - Cdo  (tr) 

03 - Mach  Crit 

04 - Chord  Main  Rotor  (c) 

05 - Radius  Main  Rotor  (r) 

06 - #  main  rotor  blades  (b) 

07 - Cdo  (mr) 

08 - Rotational  Vel  mr  (rv) 

09 - Control  #  (printer) 

10  - Density  Altitude  (da) 

11  - RHO 

12  - Area  mr  (A) 

13  - Tip  Velocity  (Vt) 

14  - Coeff  of  Thrust  mr  (CT) 

15  - Tip  Loss  Factor  mr  (B) 

16  - Pi  (oge)  mr 

17  - H/D 

18  - Temperature  (c  to  k) 

19  - Solidity  mr  (SD) 

20  - Induced  Vel  hover  (Vi) 


21  - Profile  Power  hover  (Po) 

22  - Total  Power  mr  fwd  (Pt  fwd) 

23  - Max  Fwd  Vel 

24  - Profile  Power  fwd  (Po  mr) 

25  - Forward  Velocity  (Vf) 

26  - Induced  tr  Vel  (portion) 

27  - Induced  Power  (mr  fwd) 

28  - Parasite  Power  (Pp) 

29  - Solidity  (tr) 

30  - Total  Power  (mr  oge) 

31  - Disk  Loading  (DL) 

32  - Aspect  Radio  (AR) 

33  - * - Coefficient  of  Lift  (CL) 

34  - ~Total  Power  (mr  ige) 

35  - Empty  Weight  (WE) 

36  - Gross  Weight  (GW) 

37  - Tip  Mach  #  (mr) 

38  - Induced  Power  (mr  ige) 

39  - Max  GW  (specification) 

40  - Length  of  Tail  (L  tr) 

41  - Thrust  of  tr 

42  - Radius  of  tr  (R) 

43  - Area  of  tr  (A) 

44  - Tip  vel  tr  (Vt) 

45  - Coeff  of  Thrust  tr  (CT) 

46  - MD 
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47  - Tip  Loss  Factor  tr  (B) 

48  - Pi(tl-tr)  hover  SSL  oge 

49  - Po(tr)  hover  SSL  oge 

50  - Pt(tr)  hover  SSL  oge 

51  - MU  (tr) 

52  - Profile  Power  (tr  fwd) 

53  - Thrust  (tr  fwd) 

54  - CT  (tr  fwd) 

55  - b  (tr  fwd) 

56  - Pi  (tl-tr-fwd) 

57  - Pt  (tr-fwd) 

5  8 - Chord  tr  (c) 

59  - #  tr  Blades  (b) 

60  - Tip  Mach  (tr) 

61  - Pi  total  (mr+tr) 

62  - Po  total  (mr+tr) 

63  - PTOT  (mr+tr) 

64  - EFPA 

65  - Skid  Gear  Weight 

66  - Fixed  Wheel  Gear  Wt 

67  - No.  of  Engines 
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APPENDIX  B 

EXAMPLE/PROGRAM  VALIDATION  PROBLEMS 

PRELIMINARY  DESIGN  OF  A  CARGO  HELICOPTER 

The  student  is  tasked  to  design  a  heavy  cargo  helicopter. 
A  determination  must  be  made  as  to  the  most  practical  type 
landing  gear  to  be  utilized  in  the  design.  The  following 
specifications  are  provided: 


Maximum  Allowable  Gross  Weight  40,000  lbs 

Maximum  Rotor  Diameter:  76  ft 

Maximum  Velocity:  180  kts 

Useful  Load:  9000  lbs 

Fuel  Weight:  4500  lbs 

Height  of  Rotor  Above  the  Ground:  16  ft 

Cdo  Main  Rotor:  .01 

Cruise  Velocity:  150  kts 

Tail  Rotor  Aspect  Ratio  (4.5  -  8.0):  6.5 

Cdo  Tail  Rotor  (1.25  Cdo  mr<.Cdo  tr<1.5  Cdo  mr)  :  .0145 

No.  of  Tail  Rotor  Blades:  4.0 

No.  of  Main  Rotor  Blades:  6.0 

Critical  Mach  Number:  -65 

Number  of  Landing  Gear:  4.0 

Number  of  Engines:  2.0 


In  an  effort  to  eliminate  unnecessary  repetition,  the 
user  is  advised  to  refer  to  the  individual  program  summaries 
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for  a  more  detailed  description.  Before  proceeding  further 
with  this  problem,  the  user  must  clear  all  flags  and  load  MR 
PHV,  FM,  CHD,  RV,  RHO,  WT,  and  EFPA. 


KEYSTROKES 

DISPLAY 

XEQ  (alpha) 

SIZE  (alpha) 

SIZE - 

068 

0.00 

XEQ  (alpha) 

MR  (alpha) 

Spec  Wt=  ? 

40,000 

(r/s) 

R=? 

38 

(r/s) 

Mch  Crit=? 

0.65 

(r/s) 

Vt  max=  725.6 

(r/s) 

Vf  max=? 

180 

(r/s) 

DL=7 . 054 

(r/s) 

RV=19 . 095 

(r/s) 

CT=  .006 

(r/s) 

SD=  .066 

(r/s) 

c—  1.97 

(r/s) 

AR=  19.28 

(r/s) 

CL=  .512 

(r/s) 

R  ok? 

1 

(r/s) 

No.  MR  Bids? 

6 

(r/s) 

Cdo  mr=? 

0.01 

:r/s) 

Pth  oge=  2900 

(r/s) 

H=? 

16 

(r/s) 

Pth  ige=  2305 

(r/s) 

FIG  MER=  0.73 

(r/s) 


FM  OK? 


1 


WE=  24,000 


4500 

9000 

1 

1 

1 

38 

0.65 

180 


(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 

(r/s) 


Wb=  2516.35 
Wh=  1492.98 
Wp=  3479.66 
Wf  =  5040.00 
Wc=  1440.00 
We=  1440.00 
Wq=  6720.00 
WE  2=  22,128.99 
W  FL? 

USE  LD? 

SKID? 

MR>2  bids? 

TGW=  36,311.5 
WT  OK? 

R=? 

Mcb  Crit=? 

Vt  Mx=  725.62 
Vf  Mx=? 

DL=  8.004 
RV=  19.095 
CT=  .006 
SD=  .075 
c=  2.236 
AR=  16.996 
CL=  .512 
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R  OK? 


(r/s) 

R  OK? 

1 

(r/s) 

NO  MR  bids? 

6 

(r/s) 

Cdo  mr=? 

0.01 

(r/s) 

Pth  oge=  3463 

(r/s) 

H=? 

16 

(r/s) 

Pth  ige=  2743 

(r/s) 

FIG  MER=  0.75 

(r/s) 

FM  OK? 

1 

(r/s) 

Clr  MR, PHV, FM, CHD, RV 

(r/s) 

Input  PTOT, PCOMP,  ESHP 

XEQ 

(alpha) 

CLP  (alpha) 

CLP- 

(alpha) 

MR  (alpha) 

1.0 

Continue  for  PHV,  FM,  CHD,  and  RV.  Input  PCOMP  and  ESHP. 
If  a  printer  is  to  be  used,  connect  it  after  inputting  the 
appropriate  PTOT  program.  For  this  example,  a  printer  will  be 
used . 


XEQ  (alpha) 

PTOT  (alpha) 

INPUT  CNT  NO. 

0.18020 

(r/s) 

PA=? 

0 

(r/s) 

TEMP  C=? 

15 

(r/s) 

AR  tr=? 

6.5 

(r/s) 

No.  tr  Bids? 

4 

(r/s) 

Cdo  tr=? 

0.0145 

(r/s) 

EFPA  KNOWN? 

0 

(r/s) 

CLEAN? 

0 

(r/s) 

SKID? 
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1 

(rs) 

EFPA=  54.83 

(r/s) 

No.  Engs=? 

2 

(r/s) 

For  this  example,  the  power  requirements  are  applicable 
to  standard  sea  level  conditions  (0  pa,  15  deg  C)  .  The 
user  may,  of  course,  use  any  altitude.  The  aircraft,  being 
of  the  cargo  type,  will  probably  not  have  clean  lines.  For 
this  first  iteration,  a  skid  gear  is  used.  Recall  that  the 
skid  is  used  as  a  base  for  the  fixed  and  retractable  type 
gears.  The  control  number  (.18020)  was  selected  because  the 
maximum  velocity  of  the  aircraft  is  180  knots  and  20  knots 
is  a  suitable  increment.  Note  how  the  printer  outputs  the 
power  required  at  specific  velocities.  Once  the  printer 
signals  the  completion  of  the  program,  the  user  re-executes 
the  "WT"  program. 


XEQ  (alpha) 

WT  (alpha) 

W  FL? 

4500 

(r/s) 

USE  LD? 

9000 

(r/s) 

SKID? 

0 

(r/s) 

NO.  LG? 

4 

(r/s) 

FX  GR? 

1 

(r/s) 

T  GW=  37209.57 

(r/s) 

INPUT  CNT  NO. 

0.18020 

(r/s) 

EFPA  KNOWN? 

0 

(r/s) 

CLEAN? 

0 

(r/s) 

SKID? 
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0 

(r/s) 

FIX  WHEEL? 

1 

(r/s) 

EFPA=  62.42 

(r/s) 

NO.  ENGS  =? 

2 

(r/s) 

The 

printer  now.  displays  the  power 

required  from  0  to 

knots ,  : 

incremented  every  20  knots. 

XEQ  (alpha)  WT  (alpha) 

W  FL? 

4500 

(r/s) 

USE  LD? 

9000 

(r/s) 

SKID? 

0 

(r/s) 

NO.  LG? 

4 

(r/s) 

FX  GR? 

0 

(r/s) 

T  GW=  37464.62 

(r/s) 

INPUT  CNT  NO. 

0.18020 

(r/s) 

EFPA  KNOWN? 

0 

(r/s) 

CLEAN? 

0 

(r/s) 

SKID? 

0 

(r/s) 

FIX  WHEEL? 

0 

(r/s) 

EFPA=  53.74 

(r/s) 

NO.  ENGS=? 

2 

(r/s) 
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The  printer  now  displays  the  power  required  for  the  air¬ 
craft  with  a  retractable  landing  gear. 


SKID 


FIXED  WHEEL 


RETRACTABLE  GEAR 


TOTAL  POWER 


GH*Wt  1.5125 
cppq=54.33 

VFI.  <'KN0T?> 
cchp 


9 

*** 

42*7 

*** 

29 

*** 

7721 

*** 

49 

*** 

2643 

*** 

2035 

*** 

39 

*** 

2017 

4*4 

100 

*** 

32S3 

4*4 

TOTAL  POWER 


011=37299.5? 

£Fpq=62.4? 

VE*_  (KNOTS; 

FWP 


TOTAL  POWER 


T4t>4,bi 

-57.74 


0 

*** 

A 

«*7 

1376 

±44 

44  * 

20 

*** 

2* 

* 

707t 

t 

3043 

444 

V 

40 

444 

iff 

*  '■*  h . 

7 

t 

2943 

444 

60 

444 

44* 

;724 

»** 

444 

30 

444 

§0 

44* 

2^80 

*** 

2913 

44* 

109 

44 * 

100 

44* 

3328 

?« 

34!? 

*4 4 

120 

444 

120 

*** 

j  n.  c 

•♦C  i 

4*4 

4047 

4*4 

‘40 

i*i 

!4fl 

444 

5049 

444 

5324 

4*4 

169 

*4* 

160 

444 

677? 

44* 

6362 

44* 

130 

44* 

180 

4*4 

5021 

444 

3622 

44* 

From  the  above  data,  the  user  can  readily  see  that,  at  a 
hover ,  The  helicopter  configured  with  the  skid  gear  requires 
less  power  due  to  the  gear's  reduced  weight.  As  forward 
speed  increases,  however,  the  effective  flat  plate  area 
value  (parasite  drag)  begins  to  affect  power  requirements. 

The  skid  configured  aircraft  always  requires  less  power  than 
the  fixed  wheel  aircraft  due  to  its  lighter  weight  and 
smaller  EFPA  value. 

The  benefits  of  the  retractable  gear's  reduced  drag  versus 
the  skid  gear's  lighter  weight  are  not  appreciated  until  the 
aircraft  attains  its  designed  cruise  velocity  of  one  hundred 
and  fifty  knots.  Since  the  aircraft  will  certainly  be  flying 
at  or  below  cruise  velocity  more  than  above  this  speed,  it 
seems  logical  that  a  skid  type  gear  should  be  employed  in  the 
design.  This  logic  begins  to  lose  its  validity  when  it  is 
understood  that  heavy  cargo  helicopters  are  often  not  capable 
of  performing  a  hovering  type  take-off,  as  would  be  required 
with  skid  gear. 

The  environment  chese  aircraft  operate  in  (heavy  loads 
and  oftentimes  high  density  altitude)  results  in  rolling 
take-offs  being  used  to  keep  within  engine  and  transmission 
limitations.  The  question  of  skid  versus  wheel  type  gear  is 
therefore  academic  when  heavy  cargo  helicopters  are  concerned. 

When  comparing  the  fixed  and  retractable  data,  it  is 
apparent  that  at  approximately  60  knots  the  retractable 
geared  aircraft  begins  to  require  less  power  even  though  that 
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aircraft  is  heavier  by  more  than  two  hundred  pounds!  Since 
the  helicopter  will  be  flying  at  speeds  much  greater  than 
sixty  knots,  the  most  advantageous  landing  gear  is  the 
retractable  type. 

The  landing  gear  data  may  be  evaluated  in  graphical  form 
by  using  the  program  "Myplot.'*  The  following  is  a  graph  of 
the  preceding  data. 


The  user  might  well  want  to  know  how  much  additional 
velocity  could  be  attained  by  using  the  retractable  type 
gear  as  opposed  to  the  fixed  wheel-  From  the  data,  8622  hp 
is  required  to  achieve  the  maximum  forward  velocity  using 
the  fixed  wheel  gear,  601  more  horsepower  than  the  helicopter 
with  the  retractable  gear.  If  power  is  >.ne  limiting  factor, 
it  is  a  simple  matter  to  convert  the  601  excess  hp  into 
velocity . 


KEYSTROKES 
XEQ  (alpha) 
180.19001 
1 

53.74 


PTOT  (alpha) 
(r/s) 
(r/s) 
(r/s) 


DISPLAY 
INPUT  CNT  NO. 
EFPA  KNOWN? 
EFPA=? 


The  printer  computes  the  power  required  from  180  to  190 
knots  in  increments  of  1  hp. 


TOTRL 

POWER 

18* 

**S 

;??Q7 

*** 

Q«=??465 

185 

*** 

54 

*** 

9493 

*** 

186 

VEL  '  KNOTS  > 

8581 

m 

ESHP 

187 

*** 

180 

*** 

8600 

*** 

8020 

*»* 

188 

181 

*** 

,8?89 

*** 

8113 

**S 

180 

■32 

8808 

*** 

8207 

tt* 

100 

*** 

iS3 

*** 

2091 

830! 

*** 
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From  the  data,  8622  horsepower  is  required  at  approxi¬ 


mately  186.5  knots.  By  using  the  retractable  gear,  the 
maximum  velocity  has  been  increased  by  over  five  knots. 


HUGHES  AAH-64  DESIGN  COMPARISON 

The  following  data  is  from  the  AAH-64  helicopter: 


Specification  weight:  17,640  lbs 

Critical  mach  #:  .65 

Fuel  weight:  1600  lbs 

Useful  load:  4351  lbs 

Max.  fwd.  vel.  155  knots 

Main  rotor  diameter:  48  ft 

Cdo  main  rotor:  .01 

Cdo  tail  rotor:  .01 

No.  main  rotor  blades:  4 

No.  tail  rotor  blades:  4 


Configuration:  Dirty 

No.  of  engines  2 

No.  of  landing  gear:  3 

Height  of  rotor  above  grd :  12.59  ft 


Aspect  ratio,  tr 


5.53 


Using  the  above  data  and  the  procedure  of  the  example 
problem,  the  following  power  results  were  attained: 
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SKID 


FIXED  WHEEL 


RETRACTABLE  GEAR 


TOTAL  POWER  TOTAL 

GH= 15. 735. 382b  GW=16 -236. i 

rrpo=3i.4h  pppo=35.91 

VEL  < KNOTS)  «EL  SHOTS', 

ESHP  ESHP 


0. 

*** 

1.390. 

*** 

23. 

*** 

1,367. 

*** 

40. 

*** 

1,280. 

*** 

80, 

*** 

1,174. 

80. 

*#* 

1  05  "J 

1  >  (.VL  • 

*** 

100. 

1.476. 

«» 

120. 

1.339. 

*** 

140. 

*** 

*** 

160. 

*** 

3.029. 

*** 

130. 

*** 

3.393. 

**♦ 

POWER  TOTAL  POWEF 


GH=16.363.!7 

CCPO-^,54 

VEL  .'KN0T$'- 

pcmp 


0. 

*** 

3. 

*** 

1,958. 

*** 

1  .■  9?" . 

20. 

*** 

28. 

**» 

1,731. 

*** 

1  349. 

*¥* 

40. 

*** 

40. 

Ml 

1,334. 

1.345. 

**» 

60. 

*** 

60. 

M* 

1 .22". 

*** 

!  >  ilC  *  . 

30. 

»« 

30. 

Ml 

1.389. 

*** 

1,287. 

t«> 

108. 

*** 

100. 

Mi 

’  ,e55. 

*** 

1,501. 

*** 

123. 

i*i 

120. 

Mi 

1.952. 

*** 

1  ,  £55 

tM 

140. 

*** 

140. 

*M 

2.516. 

«** 

2  358. 

Ml 

*** 

;  60 « 

M* 

3-265. 

*** 

3.025. 

Ml 

180. 

*** 

130. 

tit 

4, , 222 . 

*** 

'.575. 

1*1 
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The  Hughes  AAH-64  utilizes  a  fixed  wheel  type  landing 
gear.  The  airspeed  vs.  power  graph  depicts  the  actual  power 
requirements  of  the  AAH-64  at  various  airspeeds  and  weights. 


By  approximating  the  computed  gross  weight  line  for  the 
fixed  wheel  gear  data  (16,236.47  lbs),  a  comparison  between 
the  actual  and  computed  power  requirements  can  be  made.  The 
following  table  shows  this  comparison  and  the  percent  error. 


VEL 

HP  ACTUAL 

HP 

COMPUTED 

j  %  ERROR 

0 

2320 

1958 

15.6 

20 

2000 

1731 

13.5 

40 

1500 

1334 

11.1 

60 

1220 

1223 

0.2 

80 

1220 

1309 

7.3 

100 

1375 

1553 

12.9 

120 

1680 

1952 

16.2 

140 

2300 

2516 

9.4 

The 

average  percent  error 

is 

10.15 

1 
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COMPARISON  OF  ADV.  SYST.  COMPUTER  PROGRAM 

One  of  the  primary  goals  of  this  project  is  to  develop 
programs  for  the  HP-41  which  output  values  to  within  10 
percent  of  the  Army  Aviation  Research  and  Development 
Command's  Advanced  System's  Computer  Program.  The  following 
data  was  inputted  into  both  programs. 


Radius  of  main  rotor  blade= 
Critical  mach  number= 

Maximum  fwd.  velocity= 

Specif ication  weight* 

No.  of  main  rotor  blades* 
Coefficient  of  drag  at  0  lift* 
Height  of  rotor  above  ground* 
Fuel  weight* 

Useful  load* 

Tail  rotor  aspect  ratio* 

Coeff  of  drag  at  0  lift  (tr)= 
No.  of  tail  rotor  blades* 
Configuration* 

No.  of  engines* 

No.  of  landing  gear* 


27  ft 
.65 

160  knots 
18000  lbs 
4 

.01 

14.4  ft 
4000  lbs 
3750  lbs 
8.0 
.0145 
4 

Clean 

2 

3 
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Using  the  PTOT  (printer)  program,  the  following  aata 
was  outputted: 


SKID 


TOTAL  POWER 


Qli=i  $744, 9881 
Ecpw=20.95 

yp  <k'HCT?’- 


0 

*** 

1881 

*** 

28 

1888 

48 

*** 

1284 

**¥ 

88 

119? 

*** 

38 

*** 

1173 

*** 

188 

*** 

1358 

$*¥ 

128 

*** 

1047 

*** 

140 

»** 

2049 

**Y 

188 

*** 

2578 

*** 

FIXED  WHEEL 


total  power 


GU=i7198.23 

cppfl=24.$E 

VFL  < KNOTS i 
ESHP 


8 

*** 

1973 

*** 

28 

*** 

1 688 

*»* 

48 

*** 

1251 

*« 

68 

*** 

1149 

**¥ 

38 

*?* 

1221 

*** 

188 

*♦* 

1421 

*** 

128 

*** 

*74; 

*** 

140 

*** 

2137 

*** 

168 

*¥* 

'■‘7^0 
i  t  * '  £ 

*** 

RETRACTABLE  GEAR 


TOTAL  POWER 


G‘4=  17326. 65 
Frpa=ig.0ft 

VEL  KNOTS) 
ESHP 


6 

*** 

1341 

*** 

20 

*** 

1632 

M* 

48 

*** 

1258 

*** 

68 

1141 

»»* 

88 

*** 

;  1 3  g 

*** 

188 

*** 

1343 

*** 

128 

*** 

1618 

*** 

148 

*** 

1976 

*#* 

1p8 

ill 

2453 

*** 
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A  comparison  of  the  Advanced  System's  output  reveals  the 
following: 


VEL 

SKID 

FIX  WHEEL 

RETk  GEAR 

HP41 

AD  SY 

!%er| 

HP41 

ADSY 

|%er| 

HP  41 

ADSY 

|  %er| 

0 

1861 

1998 

6.86 

1923 

2065 

6.88 

1941 

2085 

6.91 

20 

1608 

1781 

9.71 

1666 

1846 

9.75 

1682 

1865 

9.81 

40 

1204 

1344 

10.42 

1251 

1396 

10.39 

1258 

1406 

10.53 

60 

1107 

1152 

3.91 

1149 

1198 

4.09 

1141 

1193 

4.36 

80 

1173 

1143 

2.62 

1221 

1194 

2.26 

1188 

1166 

1.89 

100 

1356 

1264 

7.28 

1421 

1330 

6.84 

1348 

1269 

6.23 

120 

1647 

1508 

9.22 

1741 

1621 

7.40 

1610 

1498 

7.48 

140 

2049 

1984 

3.28 

2187 

2147 

1.86 

1976 

1956 

1.02 

160 

2576 

2688 

4.17 

2772 

2780 

.28 

2453 

2628 

6.66 

Skid  avg  %  errors  6.39 

Fixed  wheel  avg  %  errors  5.53 
ftetr  gear  avg  %  error=  6.10 

It  is  readily  apparent  that  the  goal  of  10%  accuracy  has 
been  exceeded.  These  programs  are  rapidly  executed,  inexpen¬ 
sive  to  run,  and  sacrifice  a  very  small  percentage  of  accuracy. 


APPENDIX  C 


COMPUTER  GRAPHICS  PRINTOUT 
MY  PLOT  AND  POWERPLO  COMPUTER  PRINTOUTS 

The  following  program  graphs  the  power  data  for  a  skid,  fixed 
wheel,  and  retractable  geared  configured  helicopter.  The  attached 
graph  is  an  actual  plot  of  the  example  cargo  helicopter. 
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FILE:  NYPLOT  FORTRAN  Al-  NAVAL  POSTGRADUATE  SCHOOL 


PROGRAM  TO  PLOT  POwER  RE GO IR EM ENTS  VS.  AIRSPEED  FOR  A  HELICOPTER 
WITH  SKID.  =  IxED  WHEEL.  AND  KSTRACTA6LE  LAND  I  'lu  jEAR  JSiNu  I  HE 

textrcnix  electrostatic  plctter  and  disspla  software. 

REAL  SM0, SKIDS, FIX, FIXED. RETS, RETRA 

DIMENSION  S<IJI iOl.SKlOSI 10).FIX( 10», FIXEDIIOJ ,RETR( 101 .RETRAI 101 
C 

DATA  SKID/O.  .2  0.  .  -»0. .  60.  .  8  0.  .  1  GO.  .  12D.  ,i-.D.  .160.  ,  ISO.  / 

DATA  SK IDS/ A 247 , 3  721.  2643 ,233  6  ,26  l  7 ,  j  2  63  ,  -»G1  3  ,  sD  3  9  ,o3  7w,  6039/ 

DATA  FIX/0..&J.  t  *.  J.  ,30. ,60.  ,  I  3  J . .  1  L  0.  i  It  J.  1 1  3  0 .  ,  .60.2 

DATA  FIXED/ -,37b,  3  643.  2  9-.  3. 2  727  ,29  18.3  419, 4215 ,5324,3779,8622/ 

DATA  RETR/O.  ,2D«,9<j.,bD.  .60..1  00  .,120.,ia«0.,l30»,160./ 

DATA  RETRA/'.w.3,367b,  L9b3,2724  ,2680»3  32S«<,G«7  ,5D49.o3b2,60  2i/ 

C  CALL  TEKTRCNIa  616  PlOTTER 
CALL  TEKblB 

C  IF  PLOT  EXCEEDS  SCREEN  SI2E,  SCALE  DOWN  TO  FIT  SCREEN 
CALL  HwSCAU  •  SCREEN* J 
C  SET  PAGE  SUE 

CALL  PAGE(ll.,a. 5) 

C  DEFINE  AREA  OF  PLOT  ON  PAGE 
CALL  AREA  20(  3.0,5.51 
C  FRAME  THE  SUBPLOT  AREA 
CALL  FRAME 

C  SET  THE  TYPE  FONT  DESIREO 
CALL  SwISSL 

C  SET  THICKNESS  CF  CURVE  (IN  INCHES* 

CALL  T  hkCKV  1.0151 
C  DEFI NE  NAME  OF  X  AXIS 

CALL  XNAMcC AIR  SPEED  <  KNOT  Si  S’  ,100  I 
C  DEFINE  NAME  OF  Y  AXIS 

CALL  YNAMEC  SHAFT  nCR SEP OWcRi*  ,1 D 0  I 
C  DEFINE  HEADING  DF  PLOT 

CALL  HEAD  IN( 'HELICOPTER  PChER  REOU IRE MENTSi’ , -IDO , 2. D , 3) 

CALL  HEA0I.N4  •  SHAF  T  hDRScPOhER  VS.  AIRSPEEOi*  ,  -100,1.5,3) 

CALL  FEAD INI  •  STANDARD  SEA  L E Vc Li’  , - 10 0 ,i . 0 .3 ) 

C  SET  X  ORIGIN,  X  STEP,  X  MAXIMUM.  Y  ORIGIN,  Y  STE°,  Y  .MAXIMUM 
CALL  Gft  AF  (0,0,20.  ,2  00  .  ,  2  5  0  C.  ,1  ODD.  ,67  00.  ) 

CALL  RASPLN  (i.5) 

CALL  GRID(l.l) 

C  CALL  CURVE( TPTSX, TPTSY,  ,01 

CALL  CURVE ( SKI  0, SKI  OS, 9, 1) 

CALL  CURVE(FIX,rI XEO, 9,1 > 

CALL  CURV  EiRcTR.RETR^ ,9, 1 ) 

CALL  LINE  5<  1  SKI  Di'  ,i?  Aixl  ,  1  I 

CALL  LINE S(* FIXED  whE c  Li  '  ,  I  PAK  l  ,2  I 

CALL  LINESC RETRACTA3LE  W  HEEL  i  * ,  I  P  AKi  ,  3) 

CALL  MYLEGN( 'POWER  CURVES', 12) 

'  CALL  LEGc NO < IPAKi «3,o«b,  5. 57 
CALL  ENOPLOI 
CALL  CONE  PL 
STOP 
END 
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The  following  program  plots  the  data  from  the  PTOT  (Pul 


Display)  program. 


FILE:.  POWERPLO  FORTRAN  A1  NAVAL  POSTGRADUATE  SCHOOL 


PROGRAM  TO  PLOT  THE  PARASITE,  PROFILE.  INDUCED.  ANO  TOTAL 
POWER  REQUIRED  FOR  A  hElICCPTEP  WITH  SKIO,  FIXED  mm££L,  JR 
RETRACTABLE  LANDING  GEAR. 

real  PAR, PARA,  PRO. PROS, INC, INCU,  TOT, TOTS 

DIMENSION  PARI  I.PARAI  ) , PRJI  I.PROSl  I.INDI  i.lROUl  I.TOTl  I 
1  TOTS  <  I 

DATA  PAR/ 0. ,20., 40., 60. ,80., ID  Q« ,  1 20*  , 140  . ,16  0, / 

DATA  PARA/  / 

DATA  PRO/ 0..  20. ,40., 6  0., 8  0., 100.  ,  120.  ,140. ,160./ 

DATA  FROS/  / 

DATA  IND/0.  ,20.  ,4  0. ,6  0., 8  0., 100., 120. ,140. ,160./ 

DATA  INOU /  / 

DATA  TCT/0., 20. ,40. ,60. ,80. ,100.,  120.  ,140. ,160./ 

DATA  TOTS/ 

"  ‘  PLOTTER 


SCALE  DOWN  TO  PIT  SCREEN 


CALL  TEKTRONIX  518 
CALL  TEK619 

IF  PLOT  EXCEEDS  SCREEN  SIZE, 

CALL  HWSCALt* SCREEN*  I 
SET  PAGE  SIZE 

CALL  PAGE(11.,8.5 ) 

OEFINE  AREA  OF  PLOT  ON  PAGE 
CALL  AREA20I  3.0, 5. Si 
FRAME  THE  SU3FL0T  AREA 
CALL  FRAME 

SET  THE  TYPE  FONT  0ESIRE3 
CALL  SWISSL 

SET  THICKAESS  OF  CURVE  UN  INChES) 

CALL  THKCRVI  .0151 
DEFINE  NAME  OF  X  AXIS 
„  CALL  XNAMEi 'AIRSPEED  I  KNOTS)  *'  ,100  > 

OEFINE  NAME  OF  V  AXIS 

CALL  YNAMEI' SHAFT  HORSEPOWER*'  ,100  * 

OEFINE  HEADING  OF  PLOT 

CALL  hEAO INI 'HELICOPTER  POWER  PEOU IRE MEN TS*' ,-100,1.5,3) 
CALL  HEAO INI 'SHAFT  HORSEPOWER  vS.  AIRSPE ED*' , -130 , 1.0 , 3) 
CALL  FEAOINl'SKIO  LANDING  GEAR *' , -  103 , 1. 0 ,3) 

CALL  HEAO INI  '  F  I XEO  *n EEL i ' , -13 0,1 . 0, 3 ) 

CALL  HEAD  INI ' RETRACTS  3 Lc  GEAR* 100, 1.0 ,3) 

SET  X  ORIGIN,  X  STEP,  X  MAXIMUM,  V  ORIGIN,  Y  STEP,  Y  MAXIMUM 
CALL  GRAFIQ.Q, ZO. ,130. ,0. ,500. ,2300.) 

CALL  RASPLN  <1.51 
CALL  GRID (1,1) 

CALL  CURVEITPTSX, TPT3Y,  ,0) 

CALL  CUKVE(PAR,PARA,9 ,1) 

CALL  CURV  E(PR0«PRQS«9 ,1) 

CALL  CURVE! INO, IN0U.9 , II 
CALL  CURV  EIT0T,T0TS,9,1) 

CALL  LINESI'PARASITE*' ,IPAKl,i ) 

CALL  LINES! 'PROFI LEI' ,IPAKI,2) 

CALL  LINES!' INDUCED*'  ,  IPAK1, 3* 

CALL  LINESI  •  TOTAL*'  ,1  PAK1  ,4) 

CALL  MYLEGNt 'POWER  CURVES'  ,121 

CALL  LEGEN0UPAK1  ,4,6.6,6.01 

CALL  ENOPHOI 

CALL  GONE PL 

STOP 

END 
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